perm filename UMATCH.LAP[AID,LSP] blob
sn#685266 filedate 1982-11-01 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00021 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002
C00004 00003
C00006 00004
C00007 00005
C00009 00006
C00011 00007
C00013 00008
C00015 00009
C00016 00010
C00020 00011
C00022 00012
C00023 00013
C00024 00014
C00026 00015
C00028 00016
C00030 00017
C00032 00018
C00034 00019
C00036 00020
C00196 00021
C00197 ENDMK
C⊗;
'(THIS IS THE LAP FOR ((DSK (AID LSP)) UMATCH /125))
'(COMPILED BY LISP COMPILER /936 COMAUX /25 PHAS1 /84 MAKLAP /80 INITIA /117)
;COMPILED ON NOVEMBER 1, 1982, AT 3:48 PM
(SETQ %#FULL-PREDICATE () )
;Loading DEFSTRUCT 233
(SETQ %#CONTINUE () %#CONTINUE-STACK () %#RETAIN () COMPILE-MACROS () %#OCCURS () UMATCH-ALIST () )
(LAP %%OCCURS SUBR)
(ARGS %%OCCURS (() . 2))
(PUSH P 1)
(PUSH P 2)
(MOVE 2 (SPECIAL %#OCCURS))
(CALL 2 'ASSQ)
(HRRZ 2 0 1)
(JUMPE 2 G0002)
(HLRZ 5 0 2)
(HRRZ 2 0 2)
(CAME 5 0 P)
(JRST 0 (* -4))
(MOVEI 1 'T)
(JRST 0 G0001)
G0002
(MOVE 1 -1 P)
(CAME 1 0 P)
(JRST 0 G0005)
(MOVEI 1 '() )
(JRST 0 G0001)
G0005
(MOVE 3 0 P)
(MOVEI 2 0 3)
(CALL 3 '%%OCCURS1)
G0001
(SUB P (% 0 0 2 2))
(POPJ P)
()
(LAP %%OCCURS1 SUBR)
(ARGS %%OCCURS1 (() . 3))
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(MOVEI 1 0 2)
(JSP T PDLNMK)
(JUMPE 1 G0001)
(CAME 2 -2 P)
(JRST 0 G0003)
(MOVE 2 (SPECIAL %#OCCURS))
(MOVE 1 -2 P)
(CALL 2 'ASSQ)
(PUSH P 1)
(JUMPE 1 G0006)
(MOVE 1 -1 P)
(JSP T %PDLNC)
(MOVEI 2 0 1)
(MOVE 1 0 P)
(CALL 2 '*NCONC)
(JRST 0 G0005)
G0006
(MOVE 1 -1 P)
(JSP T %PDLNC)
(MOVE 2 -3 P)
(JSP T %PDLXC)
(MOVE 2 (SPECIAL %#OCCURS))
(JSP T %CONS)
(MOVEM 1 (SPECIAL %#OCCURS))
G0005
(SUB P (% 0 0 1 1))
(MOVEI 1 'T)
(JRST 0 G0001)
G0003
(LSH 2 -11)
(SKIPGE 0 ST 2)
(JRST 0 G0012)
(MOVEI 1 '() )
(JRST 0 G0001)
G0012
(HLRZ 2 @ -1 P)
(MOVE 1 -2 P)
(CALL 3 '%%OCCURS1)
(JUMPN 1 G0001)
(MOVE 3 0 P)
(HRRZ 2 @ -1 P)
(MOVE 1 -2 P)
(CALL 3 '%%OCCURS1)
G0001
(SUB P (% 0 0 3 3))
(POPJ P)
()
(LAP %%CHECK SUBR)
(ARGS %%CHECK (() . 1))
(PUSH P 1)
(JSP T SPECBIND)
(0 0 (SPECIAL -SEEN-))
(CALL 1 '%%CHECK1)
(SUB P (% 0 0 1 1))
(JRST 0 UNBIND)
()
(LAP %%CHECK1 SUBR)
(ARGS %%CHECK1 (() . 1))
(PUSH P 1)
(MOVE 5 (SPECIAL -SEEN-))
(JUMPE 5 G0002)
(HLRZ 4 0 5)
(HRRZ 5 0 5)
(CAIE 4 0 1)
(JRST 0 (* -4))
(JSP T PDLNMK)
(JRST 0 G0001)
G0002
(LSH 1 -11)
(SKIPGE 0 ST 1)
(JRST 0 G0004)
(MOVE 1 0 P)
(JSP T PDLNMK)
(JRST 0 G0001)
G0004
(MOVE 7 0 P)
(LSH 7 -11)
(MOVE 7 ST 7)
(TLNN 7 20)
(JRST 0 G0006)
(MOVE 2 (SPECIAL -SEEN-))
(MOVE 1 0 P)
(JSP T %PDLC)
(MOVEM 1 (SPECIAL -SEEN-))
(MOVE 1 0 P)
(JSP T PDLNMK)
(JRST 0 G0001)
G0006
(HLRZ 1 @ 0 P)
(CAIE 1 '-SPECIAL-FORM-)
(JRST 0 G0009)
(HRRZ 1 @ 0 P)
(JRST 0 G0001)
G0009
(MOVE 2 (SPECIAL -SEEN-))
(MOVE 1 0 P)
(JSP T %PDLC)
(MOVEM 1 (SPECIAL -SEEN-))
(HLRZ 1 @ 0 P)
(CALL 1 '%%CHECK1)
(PUSH P 1)
(HRRZ 1 @ -1 P)
(CALL 1 '%%CHECK1)
(POP P 2)
(JSP T %XCONS)
G0001
(SUB P (% 0 0 1 1))
(POPJ P)
()
(LAP %%SPECIAL-FORMP SUBR)
(ARGS %%SPECIAL-FORMP (() . 1))
(PUSH P 1)
(SKIPN 2 (SPECIAL %#FULL-PREDICATE))
(JRST 0 G0002)
(MOVEI 1 '() )
(JRST 0 G0001)
G0002
(LSH 1 -11)
(SKIPGE 0 ST 1)
(JRST 0 G0003)
(MOVE 1 0 P)
(CAIE 1 '-SPECIAL-FORM-)
(JRST 0 G0004)
(MOVEI 1 'T)
(JRST 0 G0001)
G0004
(SKIPN 0 1)
(MOVEI 1 'T)
(LSH 1 -11)
(HRRZ 1 ST 1)
(CAIE 1 'SYMBOL)
(JRST 0 G0006)
(MOVEI 2 '1)
(MOVE 1 0 P)
(CALL 2 'GETCHAR)
(JRST 0 G0005)
G0006
(MOVEI 1 '() )
G0005
(MOVEI 2 '(? * =))
(CALL 2 'MEMQ)
(JRST 0 G0001)
G0003
(HLRZ 1 @ 0 P)
(CAIE 1 '-SPECIAL-FORM-)
(JRST 0 G0012)
(MOVEI 1 'T)
(JRST 0 G0001)
G0012
(MOVE 7 0 P)
(LSH 7 -11)
(SKIPL 0 ST 7)
(JRST 0 G0015)
(MOVEI 2 '($R RESTRICT ⊗R $IR IRESTRICT ⊗IR))
(CALL 2 'MEMQ)
(JRST 0 G0014)
G0015
(MOVEI 1 '() )
G0014
G0001
(SUB P (% 0 0 1 1))
(POPJ P)
()
(FLUSH-MACROMEMOS 'CATCH-MATCH 'FLUSH-MACROMEMOS)
(DEFPROP CATCH-MATCH |CATCH-MATCH MACRO| MACRO)
(LAP |CATCH-MATCH MACRO| SUBR)
(ARGS |CATCH-MATCH MACRO| (() . 1))
(COMMENT ARGLIST = (FORM))
(PUSH P 1)
(CALL 1 'MACROFETCH)
(JUMPN 1 G0001)
(MOVE 1 0 P)
(NCALL 1 'LENGTH)
(CAIN 7 2)
(JRST 0 G0003)
(MOVEI T G0005)
(PUSH P T)
(PUSH P (% 0 0 '|Wrong number args for macro|))
(PUSH P -2 P)
(MOVNI T 2)
(JCALL 16 'ERROR)
G0005
G0003
(HRRZ 1 @ 0 P)
(HLRZ 1 0 1)
(JSP T %NCONS)
(MOVEI 2 ''%#DECISION-POINT)
(JSP T %XCONS)
(MOVEI 2 '*CATCH)
(JSP T %XCONS)
(MOVEI 3 'CATCH-MATCH)
(MOVEI 2 0 1)
(MOVE 1 0 P)
(CALL 3 'MACROMEMO)
G0001
(SUB P (% 0 0 1 1))
(POPJ P)
()
(LAP %%UCHOOSE-FIRST SUBR)
(ARGS %%UCHOOSE-FIRST (() . 2))
(PUSH P 1)
(PUSH P 2)
(MOVEI T G0001)
(PUSH P T)
(PUSH P 2)
(LSH 1 -11)
(SKIPGE 0 ST 1)
(JRST 0 G0003)
(MOVE 1 -3 P)
(JRST 0 G0002)
G0003
(HRRZ 1 @ -3 P)
(HLRZ 1 0 1)
G0002
(PUSH P 1)
(MOVE 7 -4 P)
(LSH 7 -11)
(SKIPGE 0 ST 7)
(JRST 0 G0008)
(MOVEI 1 '() )
(JRST 0 G0007)
G0008
(HRRZ 1 @ -4 P)
(HRRZ 1 0 1)
G0007
(PUSH P 1)
(PUSH P (% 0 0 '() ))
(PUSH P (% 0 0 '() ))
(PUSH P 2)
(MOVE 7 -10 P)
(LSH 7 -11)
(SKIPGE 0 ST 7)
(TDZA 1 1)
(MOVEI 1 'T)
(PUSH P 1)
(PUSH P (% 0 0 '() ))
(MOVNI T 10)
(JCALL 16 'HUNK)
G0001
(SUB P (% 0 0 2 2))
(JCALL 1 '%%UCHOOSER)
()
(LAP %%UCHOOSE-NEXT SUBR)
(ARGS %%UCHOOSE-NEXT (() . 1))
(PUSH P 1)
(MOVEI T G0001)
(PUSH P T)
(HLRZ 1 0 1)
(PUSH P 1)
(MOVE 1 -2 P)
(HRRZ 1 1 1)
(PUSH P 1)
(MOVE 1 -3 P)
(HLRZ 1 1 1)
(PUSH P 1)
(PUSH P (% 0 0 '() ))
(PUSH P (% 0 0 '() ))
(MOVE 1 -6 P)
(HRRZ 1 3 1)
(PUSH P 1)
(MOVE 1 -7 P)
(HLRZ 1 3 1)
(PUSH P 1)
(HRRZ 1 @ -10 P)
(PUSH P 1)
(MOVNI T 10)
(JCALL 16 'HUNK)
G0001
(SUB P (% 0 0 1 1))
(JCALL 1 '%%UCHOOSER)
()
(LAP %%UCHOOSER SUBR)
(ARGS %%UCHOOSER (() . 1))
(PUSH P 1)
(HRRZ 1 1 1)
(PUSH P 1)
(PUSH P (% 0 0 '() ))
(MOVEI 1 0 P)
(PUSH P 1)
(HLRZ 1 @ -3 P)
(PUSH P 1)
G0005
(SKIPN 0 0 P)
(JRST 0 G0015)
(HLRZ 1 @ 0 P)
(JSP T %NCONS)
(HRRM 1 @ -1 P)
(HRRZ 2 @ 0 P)
(MOVEM 1 -1 P)
(MOVEM 2 0 P)
(JRST 0 G0005)
G0015
(SUB P (% 0 0 1 1))
(MOVE 1 -1 P)
(SUB P (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '() ))
(MOVEI 1 0 P)
(PUSH P 1)
(MOVE 1 -4 P)
(HRRZ 1 3 1)
(PUSH P 1)
G0010
(SKIPN 0 0 P)
(JRST 0 G0023)
(HLRZ 1 @ 0 P)
(JSP T %NCONS)
(HRRM 1 @ -1 P)
(HRRZ 2 @ 0 P)
(MOVEM 1 -1 P)
(MOVEM 2 0 P)
(JRST 0 G0010)
G0023
(SUB P (% 0 0 1 1))
(MOVE 1 -1 P)
(SUB P (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '() ))
(MOVE 1 -4 P)
(HLRZ 1 3 1)
(JUMPE 1 G0030)
(MOVE 2 -1 P)
(MOVE 1 -3 P)
(CALL 2 'MEMQ)
(MOVEM 1 -1 P)
(JUMPE 1 G0032)
(MOVE 2 -2 P)
(MOVE 1 -3 P)
(CALL 2 '*DELQ)
(MOVE 2 -3 P)
(JSP T %XCONS)
(MOVEM 1 0 P)
(HRRZ 2 @ -4 P)
(CALL 2 'MEMBER)
(JUMPE 1 G0036)
(MOVE 1 -4 P)
(MOVEI 5 'T)
(HRLM 5 2 1)
(JRST 0 G0029)
G0036
(MOVE 1 -4 P)
(MOVE 5 0 P)
(HRRM 5 2 1)
(HRRZ 2 @ -1 P)
(MOVE 1 -4 P)
(HRRM 2 3 1)
(HRRZ 2 @ -4 P)
(MOVEI 1 0 5)
(JSP T %CONS)
(HRRM 1 @ -4 P)
(JRST 0 G0029)
G0032
(MOVE 1 -4 P)
(MOVEI 5 'T)
(HRLM 5 2 1)
(JRST 0 G0029)
G0030
(MOVE 1 -4 P)
(HLRZ 1 1 1)
(MOVE 2 -1 P)
(CALL 2 '%%USEARCH)
(PUSH P 1)
(JUMPE 1 G0048)
(HLRZ 1 0 1)
(PUSH P 1)
(MOVE 2 -4 P)
(MOVE 1 0 P)
(CALL 2 '*DELQ)
(POP P 2)
(JSP T %XCONS)
(MOVEM 1 -1 P)
(HRRZ 2 @ -5 P)
(CALL 2 'MEMBER)
(JUMPE 1 G0053)
(MOVE 1 -5 P)
(MOVEI 5 'T)
(HRLM 5 2 1)
(JRST 0 G0047)
G0053
(MOVE 1 -5 P)
(MOVE 5 -1 P)
(HRRM 5 2 1)
(HRRZ 2 @ 0 P)
(MOVE 1 -5 P)
(HRRM 2 3 1)
(HRRZ 2 @ -5 P)
(MOVEI 1 0 5)
(JSP T %CONS)
(HRRM 1 @ -5 P)
(JRST 0 G0047)
G0048
(MOVE 1 -5 P)
(MOVEI 5 'T)
(HRLM 5 2 1)
G0047
(SUB P (% 0 0 1 1))
G0029
(SUB P (% 0 0 4 4))
(POP P 1)
(JRST 0 PDLNKJ)
()
(LAP %%USEARCH SUBR)
(ARGS %%USEARCH (() . 2))
(PUSH P 1)
(PUSH P 2)
(MOVEI 1 0 2)
(JSP T PDLNMK)
(PUSH P 1)
G0003
(SKIPN 0 0 P)
(JRST 0 G0011)
(PUSH P (% 0 0 '() ))
(MOVEI 1 0 P)
(PUSH P 1)
(MOVE 1 -4 P)
(JSP T PDLNMK)
(PUSH P 1)
G0008
(SKIPN 0 0 P)
(JRST 0 G0016)
(HLRZ 1 @ 0 P)
(PUSH P 1)
(HLRZ 1 @ -4 P)
(CALLF 1 @ 0 P)
(SUB P (% 0 0 1 1))
(JSP T %NCONS)
(HRRM 1 @ -1 P)
(HRRZ 2 @ 0 P)
(MOVEM 1 -1 P)
(MOVEM 2 0 P)
(JRST 0 G0008)
G0016
(SUB P (% 0 0 1 1))
(MOVE 1 -1 P)
(SUB P (% 0 0 2 2))
(CALL 17 'AND)
(JUMPE 1 G0012)
(MOVE 1 0 P)
(JRST 0 G0024)
G0012
(HRRZ 2 @ 0 P)
(MOVEM 2 0 P)
(JRST 0 G0003)
G0011
(MOVEI 1 '() )
G0024
(SUB P (% 0 0 3 3))
(POPJ P)
()
(SETQ %STATISTICS () %CALLS 0)
(LAP %CALLS SUBR)
(ARGS %CALLS (() . 0))
(MOVE 1 (SPECIAL %CALLS))
(POPJ P)
()
(LAP %STATISTICS SUBR)
(ARGS %STATISTICS (() . 1))
(PUSH P 1)
(JUMPE 1 G0001)
(MOVEI 5 '0)
(MOVEM 5 (SPECIAL %CALLS))
G0001
(POP P 1)
(JSP T PDLNMK)
(MOVEM 1 (SPECIAL %STATISTICS))
(POPJ P)
()
(LAP %UMATCH LSUBR)
(JSP D *LCALL)
(PUSH P 1)
(SKIPN 2 (SPECIAL %STATISTICS))
(JRST 0 G0006)
(MOVE 7 @ (SPECIAL %CALLS))
(ADDI 7 1)
(JSP T FXCONS)
(MOVEM 1 (SPECIAL %CALLS))
G0006
(JSP T SPECBIND)
(0 0 (SPECIAL %#CONTINUE))
(0 0 (SPECIAL %#OCCURS))
(SETZM 0 (SPECIAL %#CONTINUE-STACK))
(MOVEI 1 '%#DECISION-POINT)
(MOVEI 2 G0009)
(JSP TT (ERSETUP -1))
(MOVEI T G0010)
(PUSH P T)
(MOVE 5 ARGLOC)
(HRRZ 1 1 5)
(PUSH P 1)
(HRRZ 1 2 5)
(PUSH P 1)
(PUSH P (% 0 0 '() ))
(PUSH P (% 0 0 '() ))
(MOVE 7 @ -22 P)
(CAIG 7 2)
(JRST 0 G0014)
(PUSH P (% 0 0 '() ))
(MOVEI 1 0 P)
(PUSH P 1)
(HRRZ 1 3 5)
(PUSH P 1)
G0005
(SKIPN 0 0 P)
(JRST 0 G0017)
(HLRZ 1 @ 0 P)
(HLRZ 2 0 1)
(HRRZ 2 0 2)
(HRRZ 2 0 2)
(JSP T %CONS)
(JSP T %NCONS)
(HRRM 1 @ -1 P)
(HRRZ 2 @ 0 P)
(MOVEM 1 -1 P)
(MOVEM 2 0 P)
(JRST 0 G0005)
G0017
(SUB P (% 0 0 1 1))
(MOVE 1 -1 P)
(SUB P (% 0 0 2 2))
(JRST 0 G0013)
G0014
(MOVEI 1 '() )
G0013
(PUSH P 1)
(PUSH P (% 0 0 '() ))
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G0010
(JRST 0 (ERUNDO -2))
G0009
(SUB P (% 0 0 1 1))
(JRST 0 UNBIND)
()
(LAP %CONTINUE-UMATCH LSUBR)
(JSP D *LCALL)
(PUSH P 1)
(MOVEI 5 'T)
(JSP T SPECBIND)
(0 5 (SPECIAL %#CONTINUE))
(0 0 (SPECIAL %#OCCURS))
(MOVE 4 ARGLOC)
(HRRZ 1 3 4)
(JSP T PDLNMK)
(MOVEM 1 (SPECIAL %#CONTINUE-STACK))
(MOVEI 1 '%#DECISION-POINT)
(MOVEI 2 G0008)
(JSP TT (ERSETUP -1))
(MOVEI T G0009)
(PUSH P T)
(HRRZ 1 1 4)
(PUSH P 1)
(HRRZ 1 2 4)
(PUSH P 1)
(PUSH P (% 0 0 '() ))
(PUSH P (% 0 0 '() ))
(MOVE 7 @ -22 P)
(CAIG 7 3)
(JRST 0 G0013)
(PUSH P (% 0 0 '() ))
(MOVEI 1 0 P)
(PUSH P 1)
(HRRZ 1 4 4)
(PUSH P 1)
G0005
(SKIPN 0 0 P)
(JRST 0 G0016)
(HLRZ 1 @ 0 P)
(HLRZ 2 0 1)
(HRRZ 2 0 2)
(HRRZ 2 0 2)
(JSP T %CONS)
(JSP T %NCONS)
(HRRM 1 @ -1 P)
(HRRZ 2 @ 0 P)
(MOVEM 1 -1 P)
(MOVEM 2 0 P)
(JRST 0 G0005)
G0016
(SUB P (% 0 0 1 1))
(MOVE 1 -1 P)
(SUB P (% 0 0 2 2))
(JRST 0 G0012)
G0013
(MOVEI 1 '() )
G0012
(PUSH P 1)
(PUSH P (% 0 0 '() ))
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G0009
(JRST 0 (ERUNDO -2))
G0008
(SUB P (% 0 0 1 1))
(JRST 0 UNBIND)
()
(LAP %UMATCH-NOBIND LSUBR)
(JSP D *LCALL)
(PUSH P 1)
(JSP T SPECBIND)
(0 0 (SPECIAL %#CONTINUE))
(0 0 (SPECIAL %#OCCURS))
(SETZM 0 (SPECIAL %#CONTINUE-STACK))
(MOVEI 1 '%#DECISION-POINT)
(MOVEI 2 G0006)
(JSP TT (ERSETUP -1))
(MOVEI T G0007)
(PUSH P T)
(MOVE 5 ARGLOC)
(HRRZ 1 1 5)
(PUSH P 1)
(HRRZ 1 2 5)
(PUSH P 1)
(PUSH P (% 0 0 '() ))
(PUSH P (% 0 0 '() ))
(MOVE 7 @ -22 P)
(CAIG 7 2)
(JRST 0 G0011)
(PUSH P (% 0 0 '() ))
(MOVEI 1 0 P)
(PUSH P 1)
(HRRZ 1 3 5)
(PUSH P 1)
G0005
(SKIPN 0 0 P)
(JRST 0 G0014)
(HLRZ 1 @ 0 P)
(HLRZ 2 0 1)
(HRRZ 2 0 2)
(HRRZ 2 0 2)
(JSP T %CONS)
(JSP T %NCONS)
(HRRM 1 @ -1 P)
(HRRZ 2 @ 0 P)
(MOVEM 1 -1 P)
(MOVEM 2 0 P)
(JRST 0 G0005)
G0014
(SUB P (% 0 0 1 1))
(MOVE 1 -1 P)
(SUB P (% 0 0 2 2))
(JRST 0 G0010)
G0011
(MOVEI 1 '() )
G0010
(PUSH P 1)
(PUSH P (% 0 0 'T))
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G0007
(JRST 0 (ERUNDO -2))
G0006
(SUB P (% 0 0 1 1))
(JRST 0 UNBIND)
()
(LAP %UMATCH-PAIR LSUBR)
(JSP D *LCALL)
(PUSH P 1)
(JSP T SPECBIND)
(0 0 (SPECIAL %#CONTINUE))
(0 0 (SPECIAL %#OCCURS))
(SETZM 0 (SPECIAL %#CONTINUE-STACK))
(SETZM 0 (SPECIAL UMATCH-ALIST))
(MOVEI 1 '%#DECISION-POINT)
(MOVEI 2 G0006)
(JSP TT (ERSETUP -1))
(MOVEI T G0007)
(PUSH P T)
(MOVE 5 ARGLOC)
(HRRZ 1 1 5)
(PUSH P 1)
(HRRZ 1 2 5)
(PUSH P 1)
(PUSH P (% 0 0 '() ))
(PUSH P (% 0 0 '() ))
(MOVE 7 @ -22 P)
(CAIG 7 2)
(JRST 0 G0011)
(PUSH P (% 0 0 '() ))
(MOVEI 1 0 P)
(PUSH P 1)
(HRRZ 1 3 5)
(PUSH P 1)
G0005
(SKIPN 0 0 P)
(JRST 0 G0014)
(HLRZ 1 @ 0 P)
(HLRZ 2 0 1)
(HRRZ 2 0 2)
(HRRZ 2 0 2)
(JSP T %CONS)
(JSP T %NCONS)
(HRRM 1 @ -1 P)
(HRRZ 2 @ 0 P)
(MOVEM 1 -1 P)
(MOVEM 2 0 P)
(JRST 0 G0005)
G0014
(SUB P (% 0 0 1 1))
(MOVE 1 -1 P)
(SUB P (% 0 0 2 2))
(JRST 0 G0010)
G0011
(MOVEI 1 '() )
G0010
(PUSH P 1)
(PUSH P (% 0 0 'PAIR))
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G0007
(JRST 0 (ERUNDO -2))
G0006
(SUB P (% 0 0 1 1))
(JRST 0 UNBIND)
()
(LAP %%#CONTINUE-UMATCH-NOBIND LSUBR)
(JSP D *LCALL)
(PUSH P 1)
(MOVEI 5 'T)
(JSP T SPECBIND)
(0 5 (SPECIAL %#CONTINUE))
(0 0 (SPECIAL %#OCCURS))
(MOVE 4 ARGLOC)
(HRRZ 1 3 4)
(JSP T PDLNMK)
(MOVEM 1 (SPECIAL %#CONTINUE-STACK))
(MOVEI 1 '%#DECISION-POINT)
(MOVEI 2 G0008)
(JSP TT (ERSETUP -1))
(MOVEI T G0009)
(PUSH P T)
(HRRZ 1 1 4)
(PUSH P 1)
(HRRZ 1 2 4)
(PUSH P 1)
(PUSH P (% 0 0 '() ))
(PUSH P (% 0 0 '() ))
(MOVE 7 @ -22 P)
(CAIG 7 3)
(JRST 0 G0013)
(PUSH P (% 0 0 '() ))
(MOVEI 1 0 P)
(PUSH P 1)
(HRRZ 1 4 4)
(PUSH P 1)
G0005
(SKIPN 0 0 P)
(JRST 0 G0016)
(HLRZ 1 @ 0 P)
(HLRZ 2 0 1)
(HRRZ 2 0 2)
(HRRZ 2 0 2)
(JSP T %CONS)
(JSP T %NCONS)
(HRRM 1 @ -1 P)
(HRRZ 2 @ 0 P)
(MOVEM 1 -1 P)
(MOVEM 2 0 P)
(JRST 0 G0005)
G0016
(SUB P (% 0 0 1 1))
(MOVE 1 -1 P)
(SUB P (% 0 0 2 2))
(JRST 0 G0012)
G0013
(MOVEI 1 '() )
G0012
(PUSH P 1)
(PUSH P (% 0 0 'T))
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G0009
(JRST 0 (ERUNDO -2))
G0008
(SUB P (% 0 0 1 1))
(JRST 0 UNBIND)
()
(LAP %%#CONTINUE-UMATCH-PAIR LSUBR)
(JSP D *LCALL)
(PUSH P 1)
(MOVEI 5 'T)
(JSP T SPECBIND)
(0 5 (SPECIAL %#CONTINUE))
(0 0 (SPECIAL %#OCCURS))
(MOVE 4 ARGLOC)
(HRRZ 1 3 4)
(JSP T PDLNMK)
(MOVEM 1 (SPECIAL %#CONTINUE-STACK))
(SETZM 0 (SPECIAL UMATCH-ALIST))
(MOVEI 1 '%#DECISION-POINT)
(MOVEI 2 G0008)
(JSP TT (ERSETUP -1))
(MOVEI T G0009)
(PUSH P T)
(HRRZ 1 1 4)
(PUSH P 1)
(HRRZ 1 2 4)
(PUSH P 1)
(PUSH P (% 0 0 '() ))
(PUSH P (% 0 0 '() ))
(MOVE 7 @ -22 P)
(CAIG 7 3)
(JRST 0 G0013)
(PUSH P (% 0 0 '() ))
(MOVEI 1 0 P)
(PUSH P 1)
(HRRZ 1 4 4)
(PUSH P 1)
G0005
(SKIPN 0 0 P)
(JRST 0 G0016)
(HLRZ 1 @ 0 P)
(HLRZ 2 0 1)
(HRRZ 2 0 2)
(HRRZ 2 0 2)
(JSP T %CONS)
(JSP T %NCONS)
(HRRM 1 @ -1 P)
(HRRZ 2 @ 0 P)
(MOVEM 1 -1 P)
(MOVEM 2 0 P)
(JRST 0 G0005)
G0016
(SUB P (% 0 0 1 1))
(MOVE 1 -1 P)
(SUB P (% 0 0 2 2))
(JRST 0 G0012)
G0013
(MOVEI 1 '() )
G0012
(PUSH P 1)
(PUSH P (% 0 0 'PAIR))
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G0009
(JRST 0 (ERUNDO -2))
G0008
(SUB P (% 0 0 1 1))
(JRST 0 UNBIND)
()
(LAP %%UMATCH LSUBR)
(ARGS %%UMATCH (6 . 6))
(JSP T SPECBIND)
(-1←41 1 (SPECIAL %#ALIST))
G0001
(SKIPE 0 -5 P)
(JRST 0 G0367)
(SKIPE 0 -3 P)
(JRST 0 G0367)
(SKIPE 0 -4 P)
(JRST 0 G0368)
(SKIPE 0 -2 P)
(JRST 0 G0368)
(SKIPN 1 (SPECIAL %#CONTINUE))
(JRST 0 G0369)
(SETZM 0 (SPECIAL %#CONTINUE))
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 '() )
(JRST 0 (ERUNDO -1))
G0369
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 'T)
(JRST 0 (ERUNDO -1))
G0368
(MOVE 7 -4 P)
(LSH 7 -11)
(SKIPL 0 ST 7)
(JRST 0 G0374)
(MOVEI 2 '($R RESTRICT ⊗R $IR IRESTRICT ⊗IR))
(HLRZ 1 @ -4 P)
(CALL 2 'MEMQ)
(JUMPN 1 G0374)
(MOVE 7 -4 P)
(LSH 7 -11)
(SKIPL 0 ST 7)
(JRST 0 G0373)
(HLRZ 2 @ -4 P)
(MOVEI 5 '($CHOOSE $CH))
(JUMPE 5 G0373)
(HLRZ 4 0 5)
(HRRZ 5 0 5)
(CAIE 4 0 2)
(JRST 0 (* -4))
G0374
(MOVE 1 -4 P)
(JSP T %PDLNC)
(MOVEI 5 '(() ))
(MOVEM 1 -4 P)
(MOVEM 5 -5 P)
(JRST 0 G0001)
G0373
(HLRZ 2 @ -4 P)
(CAIE 2 '*)
(JRST 0 G0381)
(HRRZ 3 @ -4 P)
(MOVEM 3 -4 P)
(JRST 0 G0001)
G0381
(SKIPN 0 2)
(MOVEI 2 'T)
(LSH 2 -11)
(HRRZ 1 ST 2)
(CAIE 1 'SYMBOL)
(JRST 0 G0386)
(MOVEI 2 '1)
(HLRZ 1 @ -4 P)
(CALL 2 'GETCHAR)
(JRST 0 G0385)
G0386
(MOVEI 1 '() )
G0385
(CAIE 1 '*)
(JRST 0 G0384)
(MOVE 2 (SPECIAL %#ALIST))
(HLRZ 1 @ -4 P)
(CALL 2 'ASSQ)
(PUSH P 1)
(JUMPE 1 G0395)
(HRRZ 1 0 1)
(PUSH P 1)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPN 1 G0398)
(SKIPA 1 0 P)
G0398
(MOVEI 1 '-SPECIAL-FORM-)
(SUB P (% 0 0 1 1))
(HRRZ 2 @ -5 P)
(CALL 2 '*APPEND)
(MOVEM 1 -5 P)
(SUB P (% 0 0 1 1))
(JRST 0 G0001)
G0395
(MOVEI 1 '%#DECISION-POINT)
(MOVEI 2 G0405)
(JSP TT (ERSETUP -1))
(MOVEI T G0406)
(PUSH P T)
(PUSH P (% 0 0 '() ))
(HRRZ 1 @ -24 P)
(PUSH P 1)
(PUSH P -24 P)
(PUSH P -24 P)
(HLRZ 1 @ -27 P)
(JSP T %NCONS)
(MOVE 2 (SPECIAL %#ALIST))
(JSP T %CONS)
(PUSH P 1)
(PUSH P -24 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G0406
(JRST 0 (ERUNDO -2))
G0405
(JUMPE 1 G0404)
(MOVE 1 -1 P)
(CAIE 1 'PAIR)
(JRST 0 G0415)
(HLRZ 1 @ -5 P)
(JSP T %NCONS)
(MOVE 2 (SPECIAL UMATCH-ALIST))
(JSP T %CONS)
(MOVEM 1 (SPECIAL UMATCH-ALIST))
(JRST 0 G0414)
G0415
(JUMPN 1 G0419)
(HLRZ 4 @ -5 P)
(JSP T *SET)
(JRST 0 G0414)
G0419
G0414
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 'T)
(JRST 0 (ERUNDO -1))
G0404
(MOVEI 2 '%#DECISION-POINT)
(JRST 0 (ERUNDO -1))
G0384
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 '() )
(JRST 0 (ERUNDO -1))
G0367
(SKIPE 0 -5 P)
(JRST 0 G0428)
(SKIPN 0 -4 P)
(JRST 0 G0429)
(MOVE 7 -4 P)
(LSH 7 -11)
(SKIPL 0 ST 7)
(JRST 0 G0431)
(MOVEI 2 '($R RESTRICT ⊗R $IR IRESTRICT ⊗IR))
(HLRZ 1 @ -4 P)
(CALL 2 'MEMQ)
(JUMPN 1 G0431)
(MOVE 7 -4 P)
(LSH 7 -11)
(SKIPL 0 ST 7)
(JRST 0 G0430)
(HLRZ 2 @ -4 P)
(MOVEI 5 '($CHOOSE $CH))
(JUMPE 5 G0430)
(HLRZ 4 0 5)
(HRRZ 5 0 5)
(CAIE 4 0 2)
(JRST 0 (* -4))
G0431
(MOVE 1 -4 P)
(JSP T %PDLNC)
(MOVEI 5 '(() ))
(MOVEM 1 -4 P)
(MOVEM 5 -5 P)
(JRST 0 G0001)
G0430
(HLRZ 2 @ -4 P)
(CAIE 2 '*)
(JRST 0 G0438)
(HRRZ 3 @ -4 P)
(MOVEM 3 -4 P)
(JRST 0 G0001)
G0438
(SKIPN 0 2)
(MOVEI 2 'T)
(LSH 2 -11)
(HRRZ 1 ST 2)
(CAIE 1 'SYMBOL)
(JRST 0 G0443)
(MOVEI 2 '1)
(HLRZ 1 @ -4 P)
(CALL 2 'GETCHAR)
(JRST 0 G0442)
G0443
(MOVEI 1 '() )
G0442
(CAIE 1 '*)
(JRST 0 G0441)
(MOVE 2 (SPECIAL %#ALIST))
(HLRZ 1 @ -4 P)
(CALL 2 'ASSQ)
(PUSH P 1)
(JUMPE 1 G0452)
(HRRZ 1 0 1)
(PUSH P 1)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPN 1 G0455)
(SKIPA 1 0 P)
G0455
(MOVEI 1 '-SPECIAL-FORM-)
(SUB P (% 0 0 1 1))
(HRRZ 2 @ -5 P)
(CALL 2 '*APPEND)
(MOVEM 1 -5 P)
(SUB P (% 0 0 1 1))
(JRST 0 G0001)
G0452
(MOVEI 1 '%#DECISION-POINT)
(MOVEI 2 G0462)
(JSP TT (ERSETUP -1))
(MOVEI T G0463)
(PUSH P T)
(PUSH P (% 0 0 '() ))
(HRRZ 1 @ -24 P)
(PUSH P 1)
(PUSH P -24 P)
(PUSH P -24 P)
(HLRZ 1 @ -27 P)
(JSP T %NCONS)
(MOVE 2 (SPECIAL %#ALIST))
(JSP T %CONS)
(PUSH P 1)
(PUSH P -24 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G0463
(JRST 0 (ERUNDO -2))
G0462
(JUMPE 1 G0461)
(MOVE 1 -1 P)
(CAIE 1 'PAIR)
(JRST 0 G0472)
(HLRZ 1 @ -5 P)
(JSP T %NCONS)
(MOVE 2 (SPECIAL UMATCH-ALIST))
(JSP T %CONS)
(MOVEM 1 (SPECIAL UMATCH-ALIST))
(JRST 0 G0471)
G0472
(JUMPN 1 G0476)
(HLRZ 4 @ -5 P)
(JSP T *SET)
(JRST 0 G0471)
G0476
G0471
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 'T)
(JRST 0 (ERUNDO -1))
G0461
(MOVEI 2 '%#DECISION-POINT)
(JRST 0 (ERUNDO -1))
G0441
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 '() )
(JRST 0 (ERUNDO -1))
G0429
(HLRZ 1 @ -3 P)
(HLRZ 2 @ -2 P)
(HRRZ 3 @ -3 P)
(HRRZ 4 @ -2 P)
(MOVEM 1 -5 P)
(MOVEM 2 -4 P)
(MOVEM 3 -3 P)
(MOVEM 4 -2 P)
(JRST 0 G0001)
G0428
(SKIPE 0 -4 P)
(JRST 0 G0490)
(HLRZ 1 @ -5 P)
(LSH 1 -11)
(SKIPL 0 ST 1)
(JRST 0 G0491)
(MOVEI 2 '($R RESTRICT ⊗R $IR IRESTRICT ⊗IR))
(HLRZ 1 @ -5 P)
(HLRZ 1 0 1)
(CALL 2 'MEMQ)
(JUMPN 1 G0490)
G0491
(MOVE 7 -5 P)
(LSH 7 -11)
(SKIPL 0 ST 7)
(JRST 0 G0497)
(MOVEI 2 '($R RESTRICT ⊗R $IR IRESTRICT ⊗IR))
(HLRZ 1 @ -5 P)
(CALL 2 'MEMQ)
(JUMPN 1 G0497)
(MOVE 7 -4 P)
(LSH 7 -11)
(SKIPL 0 ST 7)
(JRST 0 G0496)
(HLRZ 2 @ -4 P)
(MOVEI 5 '($CHOOSE $CH))
(JUMPE 5 G0496)
(HLRZ 4 0 5)
(HRRZ 5 0 5)
(CAIE 4 0 2)
(JRST 0 (* -4))
G0497
(MOVE 1 -5 P)
(JSP T %PDLNC)
(MOVEI 5 '(() ))
(MOVEM 1 -5 P)
(MOVEM 5 -4 P)
(JRST 0 G0001)
G0496
(HLRZ 2 @ -5 P)
(CAIE 2 '*)
(JRST 0 G0504)
(HRRZ 3 @ -5 P)
(MOVEM 3 -5 P)
(JRST 0 G0001)
G0504
(SKIPN 0 2)
(MOVEI 2 'T)
(LSH 2 -11)
(HRRZ 1 ST 2)
(CAIE 1 'SYMBOL)
(JRST 0 G0509)
(MOVEI 2 '1)
(HLRZ 1 @ -5 P)
(CALL 2 'GETCHAR)
(JRST 0 G0508)
G0509
(MOVEI 1 '() )
G0508
(CAIE 1 '*)
(JRST 0 G0366)
(MOVE 2 (SPECIAL %#ALIST))
(HLRZ 1 @ -5 P)
(CALL 2 'ASSQ)
(PUSH P 1)
(JUMPE 1 G0518)
(HRRZ 1 0 1)
(PUSH P 1)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPN 1 G0521)
(SKIPA 1 0 P)
G0521
(MOVEI 1 '-SPECIAL-FORM-)
(SUB P (% 0 0 1 1))
(HRRZ 2 @ -6 P)
(CALL 2 '*APPEND)
(MOVEM 1 -6 P)
(SUB P (% 0 0 1 1))
(JRST 0 G0001)
G0518
(MOVEI 1 '%#DECISION-POINT)
(MOVEI 2 G0528)
(JSP TT (ERSETUP -1))
(MOVEI T G0529)
(PUSH P T)
(HRRZ 1 @ -24 P)
(PUSH P 1)
(PUSH P (% 0 0 '() ))
(PUSH P -24 P)
(PUSH P -24 P)
(HLRZ 1 @ -30 P)
(JSP T %NCONS)
(MOVE 2 (SPECIAL %#ALIST))
(JSP T %CONS)
(PUSH P 1)
(PUSH P -24 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G0529
(JRST 0 (ERUNDO -2))
G0528
(JUMPE 1 G0527)
(MOVE 1 -1 P)
(CAIE 1 'PAIR)
(JRST 0 G0538)
(HLRZ 1 @ -6 P)
(JSP T %NCONS)
(MOVE 2 (SPECIAL UMATCH-ALIST))
(JSP T %CONS)
(MOVEM 1 (SPECIAL UMATCH-ALIST))
(JRST 0 G0537)
G0538
(JUMPN 1 G0542)
(HLRZ 4 @ -6 P)
(JSP T *SET)
(JRST 0 G0537)
G0542
G0537
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 'T)
(JRST 0 (ERUNDO -1))
G0527
(MOVEI 2 '%#DECISION-POINT)
(JRST 0 (ERUNDO -1))
G0490
(SKIPN 0 -5 P)
(JRST 0 G0551)
(MOVE 7 -5 P)
(LSH 7 -11)
(SKIPL 0 ST 7)
(JRST 0 G0550)
G0551
(SKIPN 0 -4 P)
(JRST 0 G0553)
(MOVE 7 -4 P)
(LSH 7 -11)
(SKIPL 0 ST 7)
(JRST 0 G0550)
G0553
(MOVE 7 -5 P)
(LSH 7 -11)
(SKIPL 0 ST 7)
(JRST 0 G0555)
(MOVEI 2 '($R RESTRICT ⊗R $IR IRESTRICT ⊗IR))
(HLRZ 1 @ -5 P)
(CALL 2 'MEMQ)
(JUMPN 1 G0550)
G0555
(MOVE 7 -4 P)
(LSH 7 -11)
(SKIPL 0 ST 7)
(JRST 0 G0549)
(HLRZ 1 @ -4 P)
(MOVEI 5 '($R RESTRICT ⊗R $IR IRESTRICT ⊗IR))
(JUMPE 5 G0549)
(HLRZ 4 0 5)
(HRRZ 5 0 5)
(CAIE 4 0 1)
(JRST 0 (* -4))
G0550
(MOVE 1 -5 P)
(JSP T %PDLNC)
(MOVEM 1 -5 P)
(MOVE 1 -4 P)
(JSP T %PDLNC)
(MOVEM 1 -4 P)
(JRST 0 G0001)
G0549
(HLRZ 1 @ -5 P)
(LSH 1 -11)
(SKIPL 0 ST 1)
(JRST 0 G0564)
(HLRZ 1 @ -5 P)
(HLRZ 1 0 1)
(MOVEI 5 '($R RESTRICT ⊗R))
(JUMPE 5 G0564)
(HLRZ 4 0 5)
(HRRZ 5 0 5)
(CAIE 4 0 1)
(JRST 0 (* -4))
(HLRZ 1 @ -5 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(SKIPN 0 1)
(MOVEI 1 'T)
(LSH 1 -11)
(HRRZ 1 ST 1)
(CAIE 1 'SYMBOL)
(JRST 0 G0568)
(MOVEI 2 '1)
(HLRZ 1 @ -5 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(CALL 2 'GETCHAR)
(JRST 0 G0567)
G0568
(MOVEI 1 '() )
G0567
(CAIE 1 '?)
(JRST 0 G0564)
(SKIPN 0 -4 P)
(JRST 0 G0564)
(PUSH P (% 0 0 '() ))
(MOVEI 1 0 P)
(PUSH P 1)
(HLRZ 1 @ -7 P)
(HRRZ 1 0 1)
(HRRZ 1 0 1)
(PUSH P 1)
G0010
(SKIPN 0 0 P)
(JRST 0 G0576)
(HLRZ 1 @ 0 P)
(PUSH P 1)
(HLRZ 1 @ -10 P)
(LSH 1 -11)
(SKIPL 0 ST 1)
(JRST 0 G0581)
(MOVEI 2 '($R RESTRICT ⊗R $IR IRESTRICT ⊗IR))
(HLRZ 1 @ -10 P)
(HLRZ 1 0 1)
(CALL 2 'MEMQ)
(JUMPN 1 G0579)
G0581
(HLRZ 1 @ -10 P)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPN 1 G0579)
(HLRZ 1 @ -10 P)
(CALLF 1 @ 0 P)
(JUMPN 1 G0579)
(SKIPA)
G0579
(MOVEI 1 'T)
(SUB P (% 0 0 1 1))
(JSP T %NCONS)
(HRRM 1 @ -1 P)
(HRRZ 2 @ 0 P)
(MOVEM 1 -1 P)
(MOVEM 2 0 P)
(JRST 0 G0010)
G0576
(SUB P (% 0 0 1 1))
(MOVE 1 -1 P)
(SUB P (% 0 0 2 2))
(CALL 17 'AND)
(JUMPE 1 G0564)
(HLRZ 1 @ -5 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(SKIPN 0 1)
(MOVEI 1 'T)
(LSH 1 -11)
(HRRZ 1 ST 1)
(CAIE 1 'SYMBOL)
(JRST 0 G0596)
(MOVEI 2 '1)
(HLRZ 1 @ -5 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(CALL 2 'GETCHAR)
(JRST 0 G0595)
G0596
(MOVEI 1 '() )
G0595
(CAIE 1 '?)
(JRST 0 G0594)
(HLRZ 2 @ -5 P)
(HRRZ 2 0 2)
(HLRZ 2 0 2)
(CAIE 2 '?)
(JRST 0 G0602)
(HLRZ 1 @ -4 P)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPE 1 G0605)
(HLRZ 2 @ -5 P)
(MOVEI 1 '-SPECIAL-FORM-)
(JSP T %CONS)
(HRRZ 2 @ -5 P)
(JSP T %CONS)
(MOVEM 1 -5 P)
(JSP T PDLNMK)
(PUSH P 1)
(MOVE 1 -5 P)
(JSP T PDLNMK)
(POP P -5 P)
(MOVEM 1 -5 P)
(MOVE 1 -3 P)
(JSP T PDLNMK)
(PUSH P 1)
(MOVE 1 -3 P)
(JSP T PDLNMK)
(POP P -3 P)
(MOVEM 1 -3 P)
(JRST 0 G0604)
G0605
(HRRZ 2 @ -5 P)
(HRRZ 3 @ -4 P)
(MOVEM 2 -5 P)
(MOVEM 3 -4 P)
G0604
(JRST 0 G0001)
G0602
(SKIPN 0 2)
(MOVEI 2 'T)
(LSH 2 -11)
(HRRZ 1 ST 2)
(CAIE 1 'SYMBOL)
(JRST 0 G0621)
(MOVEI 2 '1)
(HLRZ 1 @ -5 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(CALL 2 'GETCHAR)
(JRST 0 G0620)
G0621
(MOVEI 1 '() )
G0620
(CAIE 1 '?)
(JRST 0 G0366)
(MOVE 2 (SPECIAL %#ALIST))
(HLRZ 1 @ -5 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(CALL 2 'ASSQ)
(PUSH P 1)
(JUMPE 1 G0630)
(HRRZ 1 0 1)
(PUSH P 1)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPN 1 G0633)
(SKIPA 1 0 P)
G0633
(MOVEI 1 '-SPECIAL-FORM-)
(SUB P (% 0 0 1 1))
(HRRZ 2 @ -6 P)
(JSP T %CONS)
(MOVEM 1 -6 P)
(SUB P (% 0 0 1 1))
(JRST 0 G0001)
G0630
(PUSH P (% 0 0 '() ))
(PUSH P (% 0 0 '() ))
(MOVEI 1 '%#DECISION-POINT)
(MOVEI 2 G0641)
(JSP TT (ERSETUP -1))
(HLRZ 1 @ -24 P)
(LSH 1 -11)
(SKIPL 0 ST 1)
(JRST 0 G0646)
(HLRZ 1 @ -24 P)
(HLRZ 1 0 1)
(MOVEI 5 '($R RESTRICT ⊗R $IR IRESTRICT ⊗IR))
(JUMPE 5 G0646)
(HLRZ 4 0 5)
(HRRZ 5 0 5)
(CAIE 4 0 1)
(JRST 0 (* -4))
(HLRZ 2 @ -24 P)
(HRRZ 2 0 2)
(HLRZ 2 0 2)
(JRST 0 G0645)
G0646
(HLRZ 2 @ -24 P)
G0645
(HLRZ 1 @ -25 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(CALL 2 '%%OCCURS)
(JUMPE 1 G0643)
(MOVEI 1 '() )
(JRST 0 G0642)
G0643
(HLRZ 1 @ -24 P)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPE 1 G0656)
(MOVEI T 0)
(CALL 16 'GENSYM)
(MOVE 5 (SPECIAL %#ALIST))
(JSP T SPECBIND)
(0 5 (SPECIAL %#ALIST))
(PUSH P 1)
(HLRZ 2 @ -25 P)
(LSH 2 -11)
(SKIPL 0 ST 2)
(JRST 0 G0661)
(HLRZ 2 @ -25 P)
(HLRZ 2 0 2)
(MOVEI 4 '($R RESTRICT ⊗R $IR IRESTRICT ⊗IR))
(JUMPE 4 G0661)
(HLRZ 3 0 4)
(HRRZ 4 0 4)
(CAIE 3 0 2)
(JRST 0 (* -4))
(HLRZ 1 @ -25 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(SKIPN 0 1)
(MOVEI 1 'T)
(LSH 1 -11)
(HRRZ 1 ST 1)
(CAIE 1 'SYMBOL)
(JRST 0 G0668)
(MOVEI 2 '1)
(HLRZ 1 @ -25 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(CALL 2 'GETCHAR)
(JRST 0 G0667)
G0668
(MOVEI 1 '() )
G0667
(CAIE 1 '?)
(JRST 0 G0660)
(MOVEI 5 'T)
(MOVEI 4 'T)
(MOVE 2 0 P)
(HLRZ 1 @ -25 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(MOVEM 4 -16 P)
(MOVEM 5 -17 P)
(JSP T %CONS)
(MOVE 2 (SPECIAL %#ALIST))
(JSP T %CONS)
(MOVEM 1 (SPECIAL %#ALIST))
(JRST 0 G0660)
G0661
(HLRZ 1 @ -25 P)
(SKIPN 0 1)
(MOVEI 1 'T)
(LSH 1 -11)
(HRRZ 1 ST 1)
(CAIE 1 'SYMBOL)
(JRST 0 G0679)
(MOVEI 2 '1)
(HLRZ 1 @ -25 P)
(CALL 2 'GETCHAR)
(JRST 0 G0678)
G0679
(MOVEI 1 '() )
G0678
(CAIE 1 '?)
(JRST 0 G0660)
(MOVEI 5 'T)
(MOVE 2 0 P)
(HLRZ 1 @ -25 P)
(MOVEM 5 -17 P)
(JSP T %CONS)
(MOVE 2 (SPECIAL %#ALIST))
(JSP T %CONS)
(MOVEM 1 (SPECIAL %#ALIST))
G0660
(MOVEI T G0688)
(PUSH P T)
(PUSH P -26 P)
(PUSH P -30 P)
(PUSH P -26 P)
(PUSH P -30 P)
(MOVE 2 -5 P)
(HLRZ 1 @ -33 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(JSP T %CONS)
(MOVE 2 (SPECIAL %#ALIST))
(JSP T %CONS)
(PUSH P 1)
(PUSH P -27 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G0688
(SUB P (% 0 0 1 1))
(PUSHJ P UNBIND)
(JRST 0 G0642)
G0656
(MOVEI T G0694)
(PUSH P T)
(HRRZ 1 @ -26 P)
(PUSH P 1)
(HRRZ 1 @ -26 P)
(PUSH P 1)
(PUSH P -26 P)
(PUSH P -26 P)
(HLRZ 2 @ -31 P)
(HLRZ 1 @ -32 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(JSP T %CONS)
(MOVE 2 (SPECIAL %#ALIST))
(JSP T %CONS)
(PUSH P 1)
(PUSH P -26 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G0694
G0642
(JRST 0 (ERUNDO -2))
G0641
(JUMPE 1 G0640)
(MOVE 1 -3 P)
(CAIE 1 'PAIR)
(JRST 0 G0706)
(HLRZ 1 @ -10 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(PUSH P 1)
(HLRZ 1 @ -10 P)
(CALL 1 '%%CHECK)
(POP P 2)
(JSP T %XCONS)
(MOVE 2 (SPECIAL UMATCH-ALIST))
(JSP T %CONS)
(MOVEM 1 (SPECIAL UMATCH-ALIST))
(SKIPN 0 -1 P)
(JRST 0 G0705)
(SKIPN 0 0 P)
(JRST 0 G0713)
(HLRZ 1 @ -7 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(PUSH P 1)
(HLRZ 1 @ -11 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(CALL 1 '%%CHECK)
(POP P 2)
(JSP T %XCONS)
(MOVE 2 (SPECIAL UMATCH-ALIST))
(JSP T %CONS)
(MOVEM 1 (SPECIAL UMATCH-ALIST))
(JRST 0 G0705)
G0713
(HLRZ 1 @ -7 P)
(PUSH P 1)
(HLRZ 1 @ -11 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(CALL 1 '%%CHECK)
(POP P 2)
(JSP T %XCONS)
(MOVE 2 (SPECIAL UMATCH-ALIST))
(JSP T %CONS)
(MOVEM 1 (SPECIAL UMATCH-ALIST))
(JRST 0 G0705)
G0706
(JUMPN 1 G0725)
(HLRZ 1 @ -10 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(PUSH P 1)
(HLRZ 1 @ -10 P)
(CALL 1 '%%CHECK)
(POP P 4)
(JSP T *SET)
(SKIPN 0 -1 P)
(JRST 0 G0705)
(SKIPN 0 0 P)
(JRST 0 G0730)
(HLRZ 1 @ -7 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(PUSH P 1)
(HLRZ 1 @ -11 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(CALL 1 '%%CHECK)
(POP P 4)
(JSP T *SET)
(JRST 0 G0705)
G0730
(HLRZ 1 @ -7 P)
(PUSH P 1)
(HLRZ 1 @ -11 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(CALL 1 '%%CHECK)
(POP P 4)
(JSP T *SET)
(JRST 0 G0705)
G0725
G0705
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 'T)
(JRST 0 (ERUNDO -1))
G0640
(MOVEI 2 '%#DECISION-POINT)
(JRST 0 (ERUNDO -1))
G0594
(HLRZ 1 @ -5 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(SKIPN 0 1)
(MOVEI 1 'T)
(LSH 1 -11)
(HRRZ 1 ST 1)
(CAIE 1 'SYMBOL)
(JRST 0 G0746)
(MOVEI 2 '1)
(HLRZ 1 @ -5 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(CALL 2 'GETCHAR)
(JRST 0 G0745)
G0746
(MOVEI 1 '() )
G0745
(CAIE 1 '=)
(JRST 0 G0744)
(HLRZ 1 @ -5 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(CALL 1 'EXPLODE)
(HRRZ 1 0 1)
(CALL 1 'IMPLODE)
(PUSH P 1)
(MOVE 2 (SPECIAL %#ALIST))
(CALL 2 'ASSQ)
(PUSH P 1)
(JUMPE 1 G0758)
(HLRZ 1 @ -7 P)
(HRRZ 1 0 1)
(HRRZ 1 0 1)
(JSP T %NCONS)
(MOVE 2 -1 P)
(JSP T %XCONS)
(HLRZ 2 @ -7 P)
(HLRZ 2 0 2)
(JSP T %XCONS)
(HRRZ 2 @ -7 P)
(JSP T %CONS)
(MOVEM 1 -7 P)
(JRST 0 G0757)
G0758
(HLRZ 1 @ -7 P)
(HRRZ 1 0 1)
(HRRZ 1 0 1)
(JSP T %NCONS)
(MOVE 2 -1 P)
(JSP T %XCONS)
(HLRZ 2 @ -7 P)
(HLRZ 2 0 2)
(JSP T %XCONS)
(HRRZ 2 @ -7 P)
(JSP T %CONS)
(HLRZ 2 @ -1 P)
(HRRZ 2 0 2)
(HRRZ 2 0 2)
(MOVEM 1 -7 P)
(MOVE 1 -1 P)
(JSP T %CONS)
(MOVE 2 (SPECIAL %#ALIST))
(JSP T %CONS)
(MOVEM 1 (SPECIAL %#ALIST))
G0757
(SUB P (% 0 0 2 2))
(JRST 0 G0001)
G0744
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 '() )
(JRST 0 (ERUNDO -1))
G0564
(HLRZ 1 @ -5 P)
(LSH 1 -11)
(SKIPL 0 ST 1)
(JRST 0 G0779)
(HLRZ 1 @ -5 P)
(HLRZ 1 0 1)
(MOVEI 5 '($R RESTRICT ⊗R))
(JUMPE 5 G0779)
(HLRZ 4 0 5)
(HRRZ 5 0 5)
(CAIE 4 0 1)
(JRST 0 (* -4))
(HLRZ 2 @ -5 P)
(HRRZ 2 0 2)
(HLRZ 2 0 2)
(CAIE 2 '*)
(JRST 0 G0782)
(HRRZ 3 @ -5 P)
(JUMPN 3 G0784)
(PUSH P (% 0 0 '() ))
(MOVEI 1 0 P)
(PUSH P 1)
(HLRZ 1 @ -7 P)
(HRRZ 1 0 1)
(HRRZ 1 0 1)
(PUSH P 1)
G0018
(SKIPN 0 0 P)
(JRST 0 G0789)
(HLRZ 1 @ 0 P)
(PUSH P 1)
(MOVE 1 -10 P)
(CALLF 1 @ 0 P)
(JUMPE 1 G0792)
(MOVEI 1 'T)
G0792
(SUB P (% 0 0 1 1))
(JSP T %NCONS)
(HRRM 1 @ -1 P)
(HRRZ 2 @ 0 P)
(MOVEM 1 -1 P)
(MOVEM 2 0 P)
(JRST 0 G0018)
G0789
(SUB P (% 0 0 1 1))
(MOVE 1 -1 P)
(SUB P (% 0 0 2 2))
(CALL 17 'AND)
(JUMPE 1 G0786)
(HLRZ 1 @ -4 P)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPE 1 G0800)
(HLRZ 2 @ -5 P)
(MOVEI 1 '-SPECIAL-FORM-)
(JSP T %CONS)
(JSP T %NCONS)
(MOVEM 1 -5 P)
(JSP T PDLNMK)
(PUSH P 1)
(MOVE 1 -5 P)
(JSP T PDLNMK)
(POP P -5 P)
(MOVEM 1 -5 P)
(MOVE 1 -3 P)
(JSP T PDLNMK)
(PUSH P 1)
(MOVE 1 -3 P)
(JSP T PDLNMK)
(POP P -3 P)
(MOVEM 1 -3 P)
(JRST 0 G0799)
G0800
(HLRZ 2 @ -3 P)
(HLRZ 3 @ -2 P)
(HRRZ 4 @ -3 P)
(HRRZ 5 @ -2 P)
(MOVEM 2 -5 P)
(MOVEM 3 -4 P)
(MOVEM 4 -3 P)
(MOVEM 5 -2 P)
G0799
(JRST 0 G0001)
G0786
(MOVEI 2 '%#DECISION-POINT)
(JRST 0 (ERUNDO -1))
G0784
(PUSH P (% 0 0 '() ))
(SKIPN 4 (SPECIAL %#CONTINUE))
(JRST 0 G0819)
(HRRZ 5 @ (SPECIAL %#CONTINUE-STACK))
(PUSH P (SPECIAL %#CONTINUE-STACK))
(MOVEM 5 (SPECIAL %#CONTINUE-STACK))
(HLRZ 1 @ 0 P)
(MOVEM 1 -1 P)
(MOVE 1 -6 P)
(JSP T PDLNMK)
(PUSH P -1 P)
(PUSH P 1)
G0025
(SKIPE 0 -1 P)
(JRST 0 G0823)
(MOVE 1 0 P)
(JRST 0 G0825)
G0823
(HRRZ 1 @ 0 P)
(HRRZ 2 @ -1 P)
(MOVEM 1 0 P)
(MOVEM 2 -1 P)
(JRST 0 G0025)
G0825
(SUB P (% 0 0 3 3))
(MOVEM 1 -5 P)
(JUMPN 1 G0818)
(HRRZ 2 @ -6 P)
(MOVEM 2 -6 P)
(SUB P (% 0 0 1 1))
(JRST 0 G0001)
G0819
(SETZM 0 0 P)
G0818
(MOVE 1 -5 P)
(JSP T PDLNMK)
(PUSH P 1)
(MOVE 1 -7 P)
(JSP T PDLNMK)
(PUSH P 1)
(MOVE 1 -7 P)
(JSP T PDLNMK)
(MOVE 2 -7 P)
(PUSH P 1)
(MOVEI 1 '() )
(JSP T %C2NS)
(PUSH P 1)
G0029
(SKIPE 0 0 P)
(JRST 0 G0836)
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 '() )
(JRST 0 (ERUNDO -1))
G0836
(PUSH P (% 0 0 '() ))
(MOVEI 1 0 P)
(PUSH P 1)
(HLRZ 1 @ -14 P)
(HRRZ 1 0 1)
(HRRZ 1 0 1)
(PUSH P 1)
G0034
(SKIPN 0 0 P)
(JRST 0 G0844)
(HLRZ 1 @ 0 P)
(PUSH P 1)
(MOVE 1 -10 P)
(CALLF 1 @ 0 P)
(JUMPE 1 G0847)
(MOVEI 1 'T)
G0847
(SUB P (% 0 0 1 1))
(JSP T %NCONS)
(HRRM 1 @ -1 P)
(HRRZ 2 @ 0 P)
(MOVEM 1 -1 P)
(MOVEM 2 0 P)
(JRST 0 G0034)
G0844
(SUB P (% 0 0 1 1))
(MOVE 1 -1 P)
(SUB P (% 0 0 2 2))
(CALL 17 'AND)
(JUMPE 1 G0840)
(MOVEI 1 '%#DECISION-POINT)
(MOVEI 2 G0855)
(JSP TT (ERSETUP -1))
(SKIPN 0 -21 P)
(JRST 0 G0857)
(HLRZ 1 @ -20 P)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPE 1 G0857)
(MOVEI T G0860)
(PUSH P T)
(PUSH P -21 P)
(PUSH P -21 P)
(PUSH P -27 P)
(PUSH P -31 P)
(PUSH P (SPECIAL %#ALIST))
(PUSH P -30 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G0860
(JRST 0 G0856)
G0857
(MOVEI T G0863)
(PUSH P T)
(HRRZ 1 @ -30 P)
(PUSH P 1)
(PUSH P -20 P)
(PUSH P -30 P)
(PUSH P -30 P)
(PUSH P (SPECIAL %#ALIST))
(PUSH P -30 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G0863
G0856
(JRST 0 (ERUNDO -2))
G0855
(JUMPE 1 G0840)
(SKIPN 2 (SPECIAL %#RETAIN))
(JRST 0 G0869)
(MOVE 2 (SPECIAL %#CONTINUE-STACK))
(MOVE 1 -4 P)
(JSP T %CONS)
(MOVEM 1 (SPECIAL %#CONTINUE-STACK))
G0869
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 'T)
(JRST 0 (ERUNDO -1))
G0840
(HLRZ 1 @ -1 P)
(JSP T %NCONS)
(MOVEI 2 0 1)
(MOVE 1 -4 P)
(CALL 2 '*NCONC)
(HRRZ 2 @ 0 P)
(HRRZ 3 @ -1 P)
(MOVEM 1 -4 P)
(MOVEM 2 0 P)
(MOVEM 3 -1 P)
(JRST 0 G0029)
G0839
(SUB P (% 0 0 5 5))
(JUMPN 1 G0365)
(JRST 0 G0366)
G0782
(SKIPN 0 2)
(MOVEI 2 'T)
(LSH 2 -11)
(HRRZ 1 ST 2)
(CAIE 1 'SYMBOL)
(JRST 0 G0879)
(MOVEI 2 '1)
(HLRZ 1 @ -5 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(CALL 2 'GETCHAR)
(JRST 0 G0878)
G0879
(MOVEI 1 '() )
G0878
(CAIE 1 '*)
(JRST 0 G0366)
(MOVE 2 (SPECIAL %#ALIST))
(HLRZ 1 @ -5 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(CALL 2 'ASSQ)
(PUSH P 1)
(JUMPE 1 G0888)
(PUSH P (% 0 0 '() ))
(MOVEI 1 0 P)
(PUSH P 1)
(HLRZ 1 @ -10 P)
(HRRZ 1 0 1)
(HRRZ 1 0 1)
(PUSH P 1)
G0041
(SKIPN 0 0 P)
(JRST 0 G0892)
(HLRZ 1 @ 0 P)
(PUSH P 1)
(HRRZ 1 @ -4 P)
(CALLF 1 @ 0 P)
(JUMPE 1 G0895)
(MOVEI 1 'T)
G0895
(SUB P (% 0 0 1 1))
(JSP T %NCONS)
(HRRM 1 @ -1 P)
(HRRZ 2 @ 0 P)
(MOVEM 1 -1 P)
(MOVEM 2 0 P)
(JRST 0 G0041)
G0892
(SUB P (% 0 0 1 1))
(MOVE 1 -1 P)
(SUB P (% 0 0 2 2))
(CALL 17 'AND)
(JUMPE 1 G0889)
(HRRZ 1 @ 0 P)
(PUSH P 1)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPN 1 G0905)
(SKIPA 1 0 P)
G0905
(MOVEI 1 '-SPECIAL-FORM-)
(SUB P (% 0 0 1 1))
(HRRZ 2 @ -6 P)
(CALL 2 '*APPEND)
(MOVEM 1 -6 P)
(SUB P (% 0 0 1 1))
(JRST 0 G0001)
G0889
(MOVEI 2 '%#DECISION-POINT)
(JRST 0 (ERUNDO -1))
G0888
(HRRZ 2 @ -6 P)
(JUMPN 2 G0912)
(PUSH P (% 0 0 '() ))
(MOVEI 1 0 P)
(PUSH P 1)
(HLRZ 1 @ -10 P)
(HRRZ 1 0 1)
(HRRZ 1 0 1)
(PUSH P 1)
G0048
(SKIPN 0 0 P)
(JRST 0 G0917)
(HLRZ 1 @ 0 P)
(PUSH P 1)
(MOVE 1 -11 P)
(CALLF 1 @ 0 P)
(JUMPE 1 G0920)
(MOVEI 1 'T)
G0920
(SUB P (% 0 0 1 1))
(JSP T %NCONS)
(HRRM 1 @ -1 P)
(HRRZ 2 @ 0 P)
(MOVEM 1 -1 P)
(MOVEM 2 0 P)
(JRST 0 G0048)
G0917
(SUB P (% 0 0 1 1))
(MOVE 1 -1 P)
(SUB P (% 0 0 2 2))
(CALL 17 'AND)
(JUMPE 1 G0914)
(MOVEI 1 '%#DECISION-POINT)
(MOVEI 2 G0928)
(JSP TT (ERSETUP -1))
(HLRZ 1 @ -22 P)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPE 1 G0930)
(MOVEI T G0933)
(PUSH P T)
(PUSH P -23 P)
(PUSH P -25 P)
(PUSH P -23 P)
(PUSH P -25 P)
(HLRZ 2 @ -27 P)
(MOVEI 1 '-SPECIAL-FORM-)
(JSP T %CONS)
(HRRZ 2 @ -27 P)
(JSP T %CONS)
(HLRZ 2 @ -30 P)
(HRRZ 2 0 2)
(HLRZ 2 0 2)
(JSP T %XCONS)
(MOVE 2 (SPECIAL %#ALIST))
(JSP T %CONS)
(PUSH P 1)
(PUSH P -24 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G0933
(JRST 0 G0929)
G0930
(MOVEI T G0943)
(PUSH P T)
(HLRZ 1 @ -22 P)
(PUSH P 1)
(HLRZ 1 @ -22 P)
(PUSH P 1)
(HRRZ 1 @ -24 P)
(PUSH P 1)
(HRRZ 1 @ -24 P)
(PUSH P 1)
(MOVE 2 -27 P)
(HLRZ 1 @ -30 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(JSP T %C2NS)
(MOVE 2 (SPECIAL %#ALIST))
(JSP T %CONS)
(PUSH P 1)
(PUSH P -24 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G0943
G0929
(JRST 0 (ERUNDO -2))
G0928
(JUMPE 1 G0927)
(MOVE 1 -1 P)
(CAIE 1 'PAIR)
(JRST 0 G0956)
(HLRZ 1 @ -6 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(PUSH P 1)
(MOVE 1 -6 P)
(CALL 1 '%%CHECK)
(POP P 2)
(JSP T %XCONS)
(MOVE 2 (SPECIAL UMATCH-ALIST))
(JSP T %CONS)
(MOVEM 1 (SPECIAL UMATCH-ALIST))
(JRST 0 G0955)
G0956
(JUMPN 1 G0961)
(HLRZ 1 @ -6 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(PUSH P 1)
(MOVE 1 -6 P)
(CALL 1 '%%CHECK)
(POP P 4)
(JSP T *SET)
(JRST 0 G0955)
G0961
G0955
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 'T)
(JRST 0 (ERUNDO -1))
G0927
(MOVEI 2 '%#DECISION-POINT)
(JRST 0 (ERUNDO -1))
G0914
(MOVEI 2 '%#DECISION-POINT)
(JRST 0 (ERUNDO -1))
G0912
(PUSH P (% 0 0 '() ))
(SKIPN 3 (SPECIAL %#CONTINUE))
(JRST 0 G0972)
(HLRZ 1 @ -7 P)
(JSP T (CARCDR 13) 0 CDDAR)
(MOVEM 1 0 P)
(MOVE 1 -6 P)
(JSP T PDLNMK)
(PUSH P 0 P)
(PUSH P 1)
G0054
(SKIPE 0 -1 P)
(JRST 0 G0975)
(MOVE 1 0 P)
(JRST 0 G0977)
G0975
(HRRZ 1 @ 0 P)
(HRRZ 2 @ -1 P)
(MOVEM 1 0 P)
(MOVEM 2 -1 P)
(JRST 0 G0054)
G0977
(SUB P (% 0 0 2 2))
(MOVEM 1 -6 P)
(JUMPN 1 G0971)
(HRRZ 2 @ -7 P)
(MOVEM 2 -7 P)
(SUB P (% 0 0 2 2))
(JRST 0 G0001)
G0972
(SETZM 0 0 P)
G0971
(MOVE 1 -7 P)
(JSP T PDLNMK)
(PUSH P 1)
(MOVE 1 -7 P)
(JSP T PDLNMK)
(PUSH P 1)
(MOVE 1 -10 P)
(JSP T PDLNMK)
(MOVE 2 -10 P)
(PUSH P 1)
(MOVEI 1 '() )
(JSP T %C2NS)
(PUSH P 1)
G0061
(SKIPE 0 0 P)
(JRST 0 G0988)
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 '() )
(JRST 0 (ERUNDO -1))
G0988
(PUSH P (% 0 0 '() ))
(MOVEI 1 0 P)
(PUSH P 1)
(HLRZ 1 @ -15 P)
(HRRZ 1 0 1)
(HRRZ 1 0 1)
(PUSH P 1)
G0066
(SKIPN 0 0 P)
(JRST 0 G0996)
(HLRZ 1 @ 0 P)
(PUSH P 1)
(MOVE 1 -10 P)
(CALLF 1 @ 0 P)
(JUMPE 1 G0999)
(MOVEI 1 'T)
G0999
(SUB P (% 0 0 1 1))
(JSP T %NCONS)
(HRRM 1 @ -1 P)
(HRRZ 2 @ 0 P)
(MOVEM 1 -1 P)
(MOVEM 2 0 P)
(JRST 0 G0066)
G0996
(SUB P (% 0 0 1 1))
(MOVE 1 -1 P)
(SUB P (% 0 0 2 2))
(CALL 17 'AND)
(JUMPE 1 G0992)
(MOVEI 1 '%#DECISION-POINT)
(MOVEI 2 G1007)
(JSP TT (ERSETUP -1))
(SKIPN 0 -21 P)
(JRST 0 G1009)
(HLRZ 1 @ -17 P)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPE 1 G1009)
(MOVEI T G1012)
(PUSH P T)
(PUSH P -20 P)
(PUSH P -22 P)
(PUSH P -30 P)
(PUSH P -32 P)
(HLRZ 2 @ -24 P)
(MOVEI 1 '-SPECIAL-FORM-)
(JSP T %CONS)
(HRRZ 2 @ -26 P)
(JSP T %CONS)
(HLRZ 2 @ -35 P)
(HRRZ 2 0 2)
(HLRZ 2 0 2)
(JSP T %XCONS)
(MOVE 2 (SPECIAL %#ALIST))
(JSP T %CONS)
(PUSH P 1)
(PUSH P -31 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G1012
(JRST 0 G1008)
G1009
(MOVEI T G1022)
(PUSH P T)
(HRRZ 1 @ -31 P)
(PUSH P 1)
(PUSH P -20 P)
(PUSH P -31 P)
(PUSH P -31 P)
(MOVE 2 -26 P)
(HLRZ 1 @ -35 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(JSP T %CONS)
(MOVE 2 (SPECIAL %#ALIST))
(JSP T %CONS)
(PUSH P 1)
(PUSH P -31 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G1022
G1008
(JRST 0 (ERUNDO -2))
G1007
(JUMPE 1 G0992)
(MOVE 1 -6 P)
(CAIE 1 'PAIR)
(JRST 0 G1032)
(HLRZ 1 @ -13 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(PUSH P 1)
(MOVE 1 -5 P)
(CALL 1 '%%CHECK)
(POP P 2)
(JSP T %XCONS)
(MOVE 2 (SPECIAL UMATCH-ALIST))
(JSP T %CONS)
(MOVEM 1 (SPECIAL UMATCH-ALIST))
(JRST 0 G1031)
G1032
(JUMPN 1 G1037)
(HLRZ 1 @ -13 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(PUSH P 1)
(MOVE 1 -5 P)
(CALL 1 '%%CHECK)
(POP P 4)
(JSP T *SET)
(JRST 0 G1031)
G1037
G1031
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 'T)
(JRST 0 (ERUNDO -1))
G0992
(HLRZ 1 @ -1 P)
(JSP T %NCONS)
(MOVEI 2 0 1)
(MOVE 1 -4 P)
(CALL 2 '*NCONC)
(HRRZ 2 @ 0 P)
(HRRZ 3 @ -1 P)
(MOVEM 1 -4 P)
(MOVEM 2 0 P)
(MOVEM 3 -1 P)
(JRST 0 G0061)
G0991
(SUB P (% 0 0 6 6))
(JUMPN 1 G0365)
(JRST 0 G0366)
G0779
(HLRZ 1 @ -5 P)
(LSH 1 -11)
(SKIPL 0 ST 1)
(JRST 0 G1048)
(HLRZ 1 @ -5 P)
(HLRZ 1 0 1)
(MOVEI 5 '($IR IRESTRICT ⊗IR))
(JUMPE 5 G1048)
(HLRZ 4 0 5)
(HRRZ 5 0 5)
(CAIE 4 0 1)
(JRST 0 (* -4))
(HLRZ 2 @ -5 P)
(HRRZ 2 0 2)
(HLRZ 2 0 2)
(CAIE 2 '*)
(JRST 0 G1051)
(HRRZ 3 @ -5 P)
(JUMPN 3 G1053)
(PUSH P (% 0 0 '() ))
(MOVEI 1 0 P)
(PUSH P 1)
(HLRZ 1 @ -7 P)
(HRRZ 1 0 1)
(HRRZ 1 0 1)
(PUSH P 1)
G0072
(SKIPN 0 0 P)
(JRST 0 G1058)
(HLRZ 1 @ 0 P)
(PUSH P 1)
(MOVE 7 -10 P)
(LSH 7 -11)
(SKIPL 0 ST 7)
(JRST 0 G1063)
(MOVEI 2 '($R RESTRICT ⊗R $IR IRESTRICT ⊗IR))
(HLRZ 1 @ -10 P)
(CALL 2 'MEMQ)
(JUMPN 1 G1061)
G1063
(PUSH P (% 0 0 '() ))
(MOVEI 1 0 P)
(PUSH P 1)
(MOVE 1 -12 P)
(JSP T PDLNMK)
(PUSH P 1)
G0078
(SKIPN 0 0 P)
(JRST 0 G1068)
(HLRZ 1 @ 0 P)
(PUSH P 1)
(LSH 1 -11)
(SKIPL 0 ST 1)
(JRST 0 G1073)
(MOVEI 2 '($R RESTRICT ⊗R $IR IRESTRICT ⊗IR))
(HLRZ 1 @ 0 P)
(CALL 2 'MEMQ)
(JUMPN 1 G1071)
G1073
(MOVE 1 0 P)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPN 1 G1071)
(MOVE 1 0 P)
(CALLF 1 @ -4 P)
(JUMPN 1 G1071)
(SKIPA)
G1071
(MOVEI 1 'T)
(SUB P (% 0 0 1 1))
(JSP T %NCONS)
(HRRM 1 @ -1 P)
(HRRZ 2 @ 0 P)
(MOVEM 1 -1 P)
(MOVEM 2 0 P)
(JRST 0 G0078)
G1068
(SUB P (% 0 0 1 1))
(MOVE 1 -1 P)
(SUB P (% 0 0 2 2))
(CALL 17 'AND)
(JUMPN 1 G1061)
(SKIPA)
G1061
(MOVEI 1 'T)
(SUB P (% 0 0 1 1))
(JSP T %NCONS)
(HRRM 1 @ -1 P)
(HRRZ 2 @ 0 P)
(MOVEM 1 -1 P)
(MOVEM 2 0 P)
(JRST 0 G0072)
G1058
(SUB P (% 0 0 1 1))
(MOVE 1 -1 P)
(SUB P (% 0 0 2 2))
(CALL 17 'AND)
(JUMPE 1 G1055)
(HLRZ 1 @ -4 P)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPE 1 G1089)
(HLRZ 2 @ -5 P)
(MOVEI 1 '-SPECIAL-FORM-)
(JSP T %CONS)
(JSP T %NCONS)
(MOVEM 1 -5 P)
(JSP T PDLNMK)
(PUSH P 1)
(MOVE 1 -5 P)
(JSP T PDLNMK)
(POP P -5 P)
(MOVEM 1 -5 P)
(MOVE 1 -3 P)
(JSP T PDLNMK)
(PUSH P 1)
(MOVE 1 -3 P)
(JSP T PDLNMK)
(POP P -3 P)
(MOVEM 1 -3 P)
(JRST 0 G1088)
G1089
(HLRZ 2 @ -3 P)
(HLRZ 3 @ -2 P)
(HRRZ 4 @ -3 P)
(HRRZ 5 @ -2 P)
(MOVEM 2 -5 P)
(MOVEM 3 -4 P)
(MOVEM 4 -3 P)
(MOVEM 5 -2 P)
G1088
(JRST 0 G0001)
G1055
(MOVEI 2 '%#DECISION-POINT)
(JRST 0 (ERUNDO -1))
G1053
(PUSH P (% 0 0 '() ))
(SKIPN 4 (SPECIAL %#CONTINUE))
(JRST 0 G1108)
(HRRZ 5 @ (SPECIAL %#CONTINUE-STACK))
(PUSH P (SPECIAL %#CONTINUE-STACK))
(MOVEM 5 (SPECIAL %#CONTINUE-STACK))
(HLRZ 1 @ 0 P)
(MOVEM 1 -1 P)
(MOVE 1 -6 P)
(JSP T PDLNMK)
(PUSH P -1 P)
(PUSH P 1)
G0085
(SKIPE 0 -1 P)
(JRST 0 G1112)
(MOVE 1 0 P)
(JRST 0 G1114)
G1112
(HRRZ 1 @ 0 P)
(HRRZ 2 @ -1 P)
(MOVEM 1 0 P)
(MOVEM 2 -1 P)
(JRST 0 G0085)
G1114
(SUB P (% 0 0 3 3))
(MOVEM 1 -5 P)
(JUMPN 1 G1107)
(HRRZ 2 @ -6 P)
(MOVEM 2 -6 P)
(SUB P (% 0 0 1 1))
(JRST 0 G0001)
G1108
(SETZM 0 0 P)
G1107
(HLRZ 1 @ -5 P)
(PUSH P 1)
(MOVE 1 -6 P)
(JSP T PDLNMK)
(MOVE 2 -6 P)
(PUSH P 1)
(MOVEI 1 '() )
(JSP T %C2NS)
(PUSH P 1)
G0090
(SKIPE 0 0 P)
(JRST 0 G1124)
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 '() )
(JRST 0 (ERUNDO -1))
G1124
(PUSH P (% 0 0 '() ))
(MOVEI 1 0 P)
(PUSH P 1)
(HLRZ 1 @ -13 P)
(HRRZ 1 0 1)
(HRRZ 1 0 1)
(PUSH P 1)
G0095
(SKIPN 0 0 P)
(JRST 0 G1132)
(HLRZ 1 @ 0 P)
(PUSH P 1)
(SKIPN 0 -7 P)
(JRST 0 G1135)
(MOVE 7 -6 P)
(LSH 7 -11)
(SKIPL 0 ST 7)
(JRST 0 G1137)
(MOVEI 2 '($R RESTRICT ⊗R $IR IRESTRICT ⊗IR))
(HLRZ 1 @ -6 P)
(CALL 2 'MEMQ)
(JUMPN 1 G1135)
G1137
(MOVE 1 -6 P)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPN 1 G1135)
(MOVE 1 -6 P)
(CALLF 1 @ 0 P)
(JUMPN 1 G1135)
(SKIPA)
G1135
(MOVEI 1 'T)
(SUB P (% 0 0 1 1))
(JSP T %NCONS)
(HRRM 1 @ -1 P)
(HRRZ 2 @ 0 P)
(MOVEM 1 -1 P)
(MOVEM 2 0 P)
(JRST 0 G0095)
G1132
(SUB P (% 0 0 1 1))
(MOVE 1 -1 P)
(SUB P (% 0 0 2 2))
(CALL 17 'AND)
(JUMPE 1 G1128)
(MOVEI 1 '%#DECISION-POINT)
(MOVEI 2 G1148)
(JSP TT (ERSETUP -1))
(SKIPN 0 -20 P)
(JRST 0 G1150)
(HLRZ 1 @ -16 P)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPE 1 G1150)
(MOVEI T G1153)
(PUSH P T)
(PUSH P -17 P)
(HRRZ 1 @ -30 P)
(PUSH P 1)
(PUSH P -26 P)
(PUSH P -30 P)
(PUSH P (SPECIAL %#ALIST))
(PUSH P -27 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G1153
(JRST 0 G1149)
G1150
(MOVEI T G1157)
(PUSH P T)
(HRRZ 1 @ -27 P)
(PUSH P 1)
(PUSH P -20 P)
(PUSH P -27 P)
(PUSH P -27 P)
(PUSH P (SPECIAL %#ALIST))
(PUSH P -27 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G1157
G1149
(JRST 0 (ERUNDO -2))
G1148
(JUMPE 1 G1128)
(SKIPN 2 (SPECIAL %#RETAIN))
(JRST 0 G1163)
(MOVE 2 (SPECIAL %#CONTINUE-STACK))
(MOVE 1 -3 P)
(JSP T %CONS)
(MOVEM 1 (SPECIAL %#CONTINUE-STACK))
G1163
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 'T)
(JRST 0 (ERUNDO -1))
G1128
(HLRZ 1 @ -1 P)
(JSP T %NCONS)
(MOVEI 2 0 1)
(MOVE 1 -3 P)
(CALL 2 '*NCONC)
(HRRZ 2 @ 0 P)
(HRRZ 3 @ -1 P)
(PUSH P -1 P)
(HLRZ 4 @ 0 P)
(MOVEM 1 -4 P)
(MOVEM 2 -1 P)
(MOVEM 3 -2 P)
(MOVEM 4 -3 P)
(SUB P (% 0 0 1 1))
(JRST 0 G0090)
G1127
(SUB P (% 0 0 4 4))
(JUMPN 1 G0365)
(JRST 0 G0366)
G1051
(SKIPN 0 2)
(MOVEI 2 'T)
(LSH 2 -11)
(HRRZ 1 ST 2)
(CAIE 1 'SYMBOL)
(JRST 0 G1174)
(MOVEI 2 '1)
(HLRZ 1 @ -5 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(CALL 2 'GETCHAR)
(JRST 0 G1173)
G1174
(MOVEI 1 '() )
G1173
(CAIE 1 '*)
(JRST 0 G0366)
(MOVE 2 (SPECIAL %#ALIST))
(HLRZ 1 @ -5 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(CALL 2 'ASSQ)
(PUSH P 1)
(JUMPE 1 G1183)
(PUSH P (% 0 0 '() ))
(MOVEI 1 0 P)
(PUSH P 1)
(HLRZ 1 @ -10 P)
(HRRZ 1 0 1)
(HRRZ 1 0 1)
(PUSH P 1)
G0102
(SKIPN 0 0 P)
(JRST 0 G1187)
(HLRZ 1 @ 0 P)
(PUSH P 1)
(MOVE 7 -4 P)
(LSH 7 -11)
(SKIPL 0 ST 7)
(JRST 0 G1192)
(MOVEI 2 '($R RESTRICT ⊗R $IR IRESTRICT ⊗IR))
(HLRZ 1 @ -4 P)
(CALL 2 'MEMQ)
(JUMPN 1 G1190)
G1192
(PUSH P (% 0 0 '() ))
(MOVEI 1 0 P)
(PUSH P 1)
(PUSH P -6 P)
G0108
(SKIPN 0 0 P)
(JRST 0 G1196)
(HLRZ 1 @ 0 P)
(PUSH P 1)
(LSH 1 -11)
(SKIPL 0 ST 1)
(JRST 0 G1201)
(MOVEI 2 '($R RESTRICT ⊗R $IR IRESTRICT ⊗IR))
(HLRZ 1 @ 0 P)
(CALL 2 'MEMQ)
(JUMPN 1 G1199)
G1201
(MOVE 1 0 P)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPN 1 G1199)
(MOVE 1 0 P)
(CALLF 1 @ -4 P)
(JUMPN 1 G1199)
(SKIPA)
G1199
(MOVEI 1 'T)
(SUB P (% 0 0 1 1))
(JSP T %NCONS)
(HRRM 1 @ -1 P)
(HRRZ 2 @ 0 P)
(MOVEM 1 -1 P)
(MOVEM 2 0 P)
(JRST 0 G0108)
G1196
(SUB P (% 0 0 1 1))
(MOVE 1 -1 P)
(SUB P (% 0 0 2 2))
(CALL 17 'AND)
(JUMPN 1 G1190)
(SKIPA)
G1190
(MOVEI 1 'T)
(SUB P (% 0 0 1 1))
(JSP T %NCONS)
(HRRM 1 @ -1 P)
(HRRZ 2 @ 0 P)
(MOVEM 1 -1 P)
(MOVEM 2 0 P)
(JRST 0 G0102)
G1187
(SUB P (% 0 0 1 1))
(MOVE 1 -1 P)
(SUB P (% 0 0 2 2))
(CALL 17 'AND)
(JUMPE 1 G1184)
(MOVEI 1 '%#DECISION-POINT)
(MOVEI 2 G1217)
(JSP TT (ERSETUP -1))
(MOVEI T G1218)
(PUSH P T)
(HLRZ 1 @ -24 P)
(PUSH P 1)
(HLRZ 1 @ -24 P)
(PUSH P 1)
(PUSH P (% 0 0 '() ))
(PUSH P (% 0 0 '() ))
(PUSH P (SPECIAL %#ALIST))
(PUSH P -24 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G1218
(JRST 0 (ERUNDO -2))
G1217
(JUMPE 1 G1216)
(HRRZ 1 @ 0 P)
(PUSH P 1)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPN 1 G1226)
(SKIPA 1 0 P)
G1226
(MOVEI 1 '-SPECIAL-FORM-)
(SUB P (% 0 0 1 1))
(HRRZ 2 @ -6 P)
(CALL 2 '*APPEND)
(MOVEM 1 -6 P)
(SUB P (% 0 0 1 1))
(JRST 0 G0001)
G1216
(MOVEI 2 '%#DECISION-POINT)
(JRST 0 (ERUNDO -1))
G1184
(MOVEI 2 '%#DECISION-POINT)
(JRST 0 (ERUNDO -1))
G1183
(HRRZ 2 @ -6 P)
(JUMPN 2 G1235)
(PUSH P (% 0 0 '() ))
(MOVEI 1 0 P)
(PUSH P 1)
(HLRZ 1 @ -10 P)
(HRRZ 1 0 1)
(HRRZ 1 0 1)
(PUSH P 1)
G0115
(SKIPN 0 0 P)
(JRST 0 G1240)
(HLRZ 1 @ 0 P)
(PUSH P 1)
(MOVE 7 -11 P)
(LSH 7 -11)
(SKIPL 0 ST 7)
(JRST 0 G1245)
(MOVEI 2 '($R RESTRICT ⊗R $IR IRESTRICT ⊗IR))
(HLRZ 1 @ -11 P)
(CALL 2 'MEMQ)
(JUMPN 1 G1243)
G1245
(PUSH P (% 0 0 '() ))
(MOVEI 1 0 P)
(PUSH P 1)
(MOVE 1 -13 P)
(JSP T PDLNMK)
(PUSH P 1)
G0121
(SKIPN 0 0 P)
(JRST 0 G1250)
(HLRZ 1 @ 0 P)
(PUSH P 1)
(LSH 1 -11)
(SKIPL 0 ST 1)
(JRST 0 G1255)
(MOVEI 2 '($R RESTRICT ⊗R $IR IRESTRICT ⊗IR))
(HLRZ 1 @ 0 P)
(CALL 2 'MEMQ)
(JUMPN 1 G1253)
G1255
(MOVE 1 0 P)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPN 1 G1253)
(MOVE 1 0 P)
(CALLF 1 @ -4 P)
(JUMPN 1 G1253)
(SKIPA)
G1253
(MOVEI 1 'T)
(SUB P (% 0 0 1 1))
(JSP T %NCONS)
(HRRM 1 @ -1 P)
(HRRZ 2 @ 0 P)
(MOVEM 1 -1 P)
(MOVEM 2 0 P)
(JRST 0 G0121)
G1250
(SUB P (% 0 0 1 1))
(MOVE 1 -1 P)
(SUB P (% 0 0 2 2))
(CALL 17 'AND)
(JUMPN 1 G1243)
(SKIPA)
G1243
(MOVEI 1 'T)
(SUB P (% 0 0 1 1))
(JSP T %NCONS)
(HRRM 1 @ -1 P)
(HRRZ 2 @ 0 P)
(MOVEM 1 -1 P)
(MOVEM 2 0 P)
(JRST 0 G0115)
G1240
(SUB P (% 0 0 1 1))
(MOVE 1 -1 P)
(SUB P (% 0 0 2 2))
(CALL 17 'AND)
(JUMPE 1 G1237)
(HLRZ 1 @ -5 P)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPE 1 G1271)
(MOVEI 1 '%#DECISION-POINT)
(MOVEI 2 G1274)
(JSP TT (ERSETUP -1))
(MOVEI T G1275)
(PUSH P T)
(HLRZ 1 @ -23 P)
(PUSH P 1)
(HLRZ 1 @ -25 P)
(PUSH P 1)
(PUSH P (% 0 0 '() ))
(PUSH P (% 0 0 '() ))
(HLRZ 2 @ -27 P)
(MOVEI 1 '-SPECIAL-FORM-)
(JSP T %CONS)
(HRRZ 2 @ -27 P)
(JSP T %CONS)
(HLRZ 2 @ -30 P)
(HRRZ 2 0 2)
(HLRZ 2 0 2)
(JSP T %XCONS)
(MOVE 2 (SPECIAL %#ALIST))
(JSP T %CONS)
(PUSH P 1)
(PUSH P -24 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G1275
(JRST 0 (ERUNDO -2))
G1274
(JUMPE 1 G1270)
G1271
(MOVEI 1 '%#DECISION-POINT)
(MOVEI 2 G1289)
(JSP TT (ERSETUP -1))
(MOVEI T G1290)
(PUSH P T)
(HLRZ 1 @ -22 P)
(PUSH P 1)
(HLRZ 1 @ -22 P)
(PUSH P 1)
(HRRZ 1 @ -24 P)
(PUSH P 1)
(HRRZ 1 @ -24 P)
(PUSH P 1)
(MOVE 2 -27 P)
(HLRZ 1 @ -30 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(JSP T %C2NS)
(MOVE 2 (SPECIAL %#ALIST))
(JSP T %CONS)
(PUSH P 1)
(PUSH P -24 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G1290
(JRST 0 (ERUNDO -2))
G1289
(JUMPE 1 G1288)
(MOVE 1 -1 P)
(CAIE 1 'PAIR)
(JRST 0 G1302)
(HLRZ 1 @ -6 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(PUSH P 1)
(MOVE 1 -6 P)
(CALL 1 '%%CHECK)
(POP P 2)
(JSP T %XCONS)
(MOVE 2 (SPECIAL UMATCH-ALIST))
(JSP T %CONS)
(MOVEM 1 (SPECIAL UMATCH-ALIST))
(JRST 0 G1301)
G1302
(JUMPN 1 G1307)
(HLRZ 1 @ -6 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(PUSH P 1)
(MOVE 1 -6 P)
(CALL 1 '%%CHECK)
(POP P 4)
(JSP T *SET)
(JRST 0 G1301)
G1307
G1301
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 'T)
(JRST 0 (ERUNDO -1))
G1288
(MOVEI 2 '%#DECISION-POINT)
(JRST 0 (ERUNDO -1))
G1270
(MOVEI 2 '%#DECISION-POINT)
(JRST 0 (ERUNDO -1))
G1237
(MOVEI 2 '%#DECISION-POINT)
(JRST 0 (ERUNDO -1))
G1235
(PUSH P (% 0 0 '() ))
(SKIPN 3 (SPECIAL %#CONTINUE))
(JRST 0 G1320)
(HLRZ 1 @ -7 P)
(JSP T (CARCDR 13) 0 CDDAR)
(MOVEM 1 0 P)
(MOVE 1 -6 P)
(JSP T PDLNMK)
(PUSH P 0 P)
(PUSH P 1)
G0127
(SKIPE 0 -1 P)
(JRST 0 G1323)
(MOVE 1 0 P)
(JRST 0 G1325)
G1323
(HRRZ 1 @ 0 P)
(HRRZ 2 @ -1 P)
(MOVEM 1 0 P)
(MOVEM 2 -1 P)
(JRST 0 G0127)
G1325
(SUB P (% 0 0 2 2))
(MOVEM 1 -6 P)
(JUMPN 1 G1319)
(HRRZ 2 @ -7 P)
(MOVEM 2 -7 P)
(SUB P (% 0 0 2 2))
(JRST 0 G0001)
G1320
(SETZM 0 0 P)
G1319
(HLRZ 1 @ -6 P)
(PUSH P 1)
(MOVE 1 -7 P)
(JSP T PDLNMK)
(PUSH P 1)
(MOVE 1 -11 P)
(JSP T PDLNMK)
(PUSH P 1)
(MOVE 1 -11 P)
(JSP T PDLNMK)
(MOVE 2 -11 P)
(PUSH P 1)
(MOVEI 1 '() )
(JSP T %C2NS)
(PUSH P 1)
G0135
(SKIPE 0 0 P)
(JRST 0 G1337)
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 '() )
(JRST 0 (ERUNDO -1))
G1337
(PUSH P (% 0 0 '() ))
(MOVEI 1 0 P)
(PUSH P 1)
(HLRZ 1 @ -16 P)
(HRRZ 1 0 1)
(HRRZ 1 0 1)
(PUSH P 1)
G0140
(SKIPN 0 0 P)
(JRST 0 G1345)
(HLRZ 1 @ 0 P)
(PUSH P 1)
(SKIPN 0 -11 P)
(JRST 0 G1348)
(MOVE 7 -10 P)
(LSH 7 -11)
(SKIPL 0 ST 7)
(JRST 0 G1350)
(MOVEI 2 '($R RESTRICT ⊗R $IR IRESTRICT ⊗IR))
(HLRZ 1 @ -10 P)
(CALL 2 'MEMQ)
(JUMPN 1 G1348)
G1350
(MOVE 1 -10 P)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPN 1 G1348)
(MOVE 1 -10 P)
(CALLF 1 @ 0 P)
(JUMPN 1 G1348)
(SKIPA)
G1348
(MOVEI 1 'T)
(SUB P (% 0 0 1 1))
(JSP T %NCONS)
(HRRM 1 @ -1 P)
(HRRZ 2 @ 0 P)
(MOVEM 1 -1 P)
(MOVEM 2 0 P)
(JRST 0 G0140)
G1345
(SUB P (% 0 0 1 1))
(MOVE 1 -1 P)
(SUB P (% 0 0 2 2))
(CALL 17 'AND)
(JUMPE 1 G1341)
(MOVEI 1 '%#DECISION-POINT)
(MOVEI 2 G1361)
(JSP TT (ERSETUP -1))
(SKIPN 0 -22 P)
(JRST 0 G1363)
(HLRZ 1 @ -20 P)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPE 1 G1363)
(MOVEI T G1366)
(PUSH P T)
(PUSH P -21 P)
(PUSH P -21 P)
(PUSH P -31 P)
(PUSH P -33 P)
(HLRZ 2 @ -25 P)
(MOVEI 1 '-SPECIAL-FORM-)
(JSP T %CONS)
(HRRZ 2 @ -27 P)
(JSP T %CONS)
(HLRZ 2 @ -36 P)
(HRRZ 2 0 2)
(HLRZ 2 0 2)
(JSP T %XCONS)
(MOVE 2 (SPECIAL %#ALIST))
(JSP T %CONS)
(PUSH P 1)
(PUSH P -32 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G1366
(JRST 0 G1362)
G1363
(MOVEI T G1376)
(PUSH P T)
(HRRZ 1 @ -32 P)
(PUSH P 1)
(PUSH P -20 P)
(PUSH P -32 P)
(PUSH P -32 P)
(MOVE 2 -27 P)
(HLRZ 1 @ -36 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(JSP T %CONS)
(MOVE 2 (SPECIAL %#ALIST))
(JSP T %CONS)
(PUSH P 1)
(PUSH P -32 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G1376
G1362
(JRST 0 (ERUNDO -2))
G1361
(JUMPE 1 G1341)
(MOVE 1 -7 P)
(CAIE 1 'PAIR)
(JRST 0 G1386)
(HLRZ 1 @ -14 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(PUSH P 1)
(MOVE 1 -6 P)
(CALL 1 '%%CHECK)
(POP P 2)
(JSP T %XCONS)
(MOVE 2 (SPECIAL UMATCH-ALIST))
(JSP T %CONS)
(MOVEM 1 (SPECIAL UMATCH-ALIST))
(JRST 0 G1385)
G1386
(JUMPN 1 G1391)
(HLRZ 1 @ -14 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(PUSH P 1)
(MOVE 1 -6 P)
(CALL 1 '%%CHECK)
(POP P 4)
(JSP T *SET)
(JRST 0 G1385)
G1391
G1385
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 'T)
(JRST 0 (ERUNDO -1))
G1341
(HLRZ 1 @ -1 P)
(JSP T %NCONS)
(MOVEI 2 0 1)
(MOVE 1 -5 P)
(CALL 2 '*NCONC)
(HRRZ 2 @ 0 P)
(HRRZ 3 @ -1 P)
(PUSH P -1 P)
(HLRZ 4 @ 0 P)
(MOVEM 1 -6 P)
(MOVEM 2 -1 P)
(MOVEM 3 -2 P)
(MOVEM 4 -5 P)
(SUB P (% 0 0 1 1))
(JRST 0 G0135)
G1340
(SUB P (% 0 0 7 7))
(JUMPN 1 G0365)
(JRST 0 G0366)
G1048
(HLRZ 1 @ -5 P)
(CAIE 1 '*)
(JRST 0 G1403)
(HRRZ 2 @ -5 P)
(JUMPN 2 G1405)
(HLRZ 1 @ -4 P)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPE 1 G1408)
(HLRZ 2 @ -5 P)
(MOVEI 1 '-SPECIAL-FORM-)
(JSP T %CONS)
(JSP T %NCONS)
(MOVEM 1 -5 P)
(JSP T PDLNMK)
(PUSH P 1)
(MOVE 1 -5 P)
(JSP T PDLNMK)
(POP P -5 P)
(MOVEM 1 -5 P)
(MOVE 1 -3 P)
(JSP T PDLNMK)
(PUSH P 1)
(MOVE 1 -3 P)
(JSP T PDLNMK)
(POP P -3 P)
(MOVEM 1 -3 P)
(JRST 0 G1407)
G1408
(HLRZ 2 @ -3 P)
(HLRZ 3 @ -2 P)
(HRRZ 4 @ -3 P)
(HRRZ 5 @ -2 P)
(MOVEM 2 -5 P)
(MOVEM 3 -4 P)
(MOVEM 4 -3 P)
(MOVEM 5 -2 P)
G1407
(JRST 0 G0001)
G1405
(PUSH P (% 0 0 '() ))
(SKIPN 3 (SPECIAL %#CONTINUE))
(JRST 0 G1425)
(HRRZ 4 @ (SPECIAL %#CONTINUE-STACK))
(PUSH P (SPECIAL %#CONTINUE-STACK))
(MOVEM 4 (SPECIAL %#CONTINUE-STACK))
(HLRZ 5 @ 0 P)
(MOVEM 5 -1 P)
(MOVE 1 -6 P)
(JSP T PDLNMK)
(PUSH P 1)
(PUSH P 5)
G0148
(SKIPE 0 0 P)
(JRST 0 G1429)
(MOVE 1 -1 P)
(JRST 0 G1431)
G1429
(HRRZ 1 @ -1 P)
(HRRZ 2 @ 0 P)
(MOVEM 1 -1 P)
(MOVEM 2 0 P)
(JRST 0 G0148)
G1431
(SUB P (% 0 0 3 3))
(MOVEM 1 -5 P)
(JUMPN 1 G1424)
(HRRZ 2 @ -6 P)
(MOVEM 2 -6 P)
(SUB P (% 0 0 1 1))
(JRST 0 G0001)
G1425
(SETZM 0 0 P)
G1424
(MOVE 1 -5 P)
(JSP T PDLNMK)
(MOVE 2 -5 P)
(PUSH P 1)
(MOVEI 1 '() )
(JSP T %C2NS)
(PUSH P 1)
G0153
(SKIPE 0 0 P)
(JRST 0 G1440)
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 '() )
(JRST 0 (ERUNDO -1))
G1440
(MOVEI 1 '%#DECISION-POINT)
(MOVEI 2 G1446)
(JSP TT (ERSETUP -1))
(SKIPN 0 -17 P)
(JRST 0 G1448)
(HLRZ 1 @ -16 P)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPE 1 G1448)
(MOVEI T G1451)
(PUSH P T)
(PUSH P -17 P)
(HRRZ 1 @ -27 P)
(PUSH P 1)
(PUSH P -26 P)
(PUSH P -26 P)
(PUSH P (SPECIAL %#ALIST))
(PUSH P -26 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G1451
(JRST 0 G1447)
G1448
(MOVEI T G1455)
(PUSH P T)
(HRRZ 1 @ -26 P)
(PUSH P 1)
(PUSH P -20 P)
(PUSH P -26 P)
(PUSH P -26 P)
(PUSH P (SPECIAL %#ALIST))
(PUSH P -26 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G1455
G1447
(JRST 0 (ERUNDO -2))
G1446
(JUMPE 1 G1444)
(SKIPN 2 (SPECIAL %#RETAIN))
(JRST 0 G1461)
(MOVE 2 (SPECIAL %#CONTINUE-STACK))
(MOVE 1 -2 P)
(JSP T %CONS)
(MOVEM 1 (SPECIAL %#CONTINUE-STACK))
G1461
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 'T)
(JRST 0 (ERUNDO -1))
G1444
(HLRZ 1 @ -1 P)
(JSP T %NCONS)
(MOVEI 2 0 1)
(MOVE 1 -2 P)
(CALL 2 '*NCONC)
(HRRZ 2 @ 0 P)
(HRRZ 3 @ -1 P)
(MOVEM 1 -2 P)
(MOVEM 2 0 P)
(MOVEM 3 -1 P)
(JRST 0 G0153)
G1443
(SUB P (% 0 0 3 3))
(JUMPN 1 G0365)
(JRST 0 G0366)
G1403
(SKIPN 0 1)
(MOVEI 1 'T)
(LSH 1 -11)
(HRRZ 1 ST 1)
(CAIE 1 'SYMBOL)
(JRST 0 G1471)
(MOVEI 2 '1)
(HLRZ 1 @ -5 P)
(CALL 2 'GETCHAR)
(JRST 0 G1470)
G1471
(MOVEI 1 '() )
G1470
(CAIE 1 '*)
(JRST 0 G1469)
(MOVE 2 (SPECIAL %#ALIST))
(HLRZ 1 @ -5 P)
(CALL 2 'ASSQ)
(PUSH P 1)
(JUMPE 1 G1480)
(HRRZ 1 0 1)
(PUSH P 1)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPN 1 G1483)
(SKIPA 1 0 P)
G1483
(MOVEI 1 '-SPECIAL-FORM-)
(SUB P (% 0 0 1 1))
(HRRZ 2 @ -6 P)
(CALL 2 '*APPEND)
(MOVEM 1 -6 P)
(SUB P (% 0 0 1 1))
(JRST 0 G0001)
G1480
(HRRZ 2 @ -6 P)
(JUMPN 2 G1488)
(MOVEI 1 '%#DECISION-POINT)
(MOVEI 2 G1491)
(JSP TT (ERSETUP -1))
(HLRZ 1 @ -22 P)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPE 1 G1493)
(MOVEI T G1496)
(PUSH P T)
(PUSH P -23 P)
(HLRZ 2 @ -25 P)
(MOVEI 1 '-SPECIAL-FORM-)
(JSP T %CONS)
(HRRZ 2 @ -25 P)
(JSP T %CONS)
(PUSH P 1)
(PUSH P -23 P)
(PUSH P -25 P)
(MOVE 2 -27 P)
(HLRZ 1 @ -30 P)
(JSP T %C2NS)
(MOVE 2 (SPECIAL %#ALIST))
(JSP T %CONS)
(PUSH P 1)
(PUSH P -24 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G1496
(JRST 0 G1492)
G1493
(MOVEI T G1506)
(PUSH P T)
(HLRZ 1 @ -22 P)
(PUSH P 1)
(HLRZ 1 @ -22 P)
(PUSH P 1)
(HRRZ 1 @ -24 P)
(PUSH P 1)
(HRRZ 1 @ -24 P)
(PUSH P 1)
(MOVE 2 -27 P)
(HLRZ 1 @ -30 P)
(JSP T %C2NS)
(MOVE 2 (SPECIAL %#ALIST))
(JSP T %CONS)
(PUSH P 1)
(PUSH P -24 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G1506
G1492
(JRST 0 (ERUNDO -2))
G1491
(JUMPE 1 G1490)
(MOVE 1 -1 P)
(CAIE 1 'PAIR)
(JRST 0 G1519)
(HLRZ 1 @ -6 P)
(PUSH P 1)
(MOVE 1 -6 P)
(CALL 1 '%%CHECK)
(POP P 2)
(JSP T %XCONS)
(MOVE 2 (SPECIAL UMATCH-ALIST))
(JSP T %CONS)
(MOVEM 1 (SPECIAL UMATCH-ALIST))
(JRST 0 G1518)
G1519
(JUMPN 1 G1524)
(HLRZ 1 @ -6 P)
(PUSH P 1)
(MOVE 1 -6 P)
(CALL 1 '%%CHECK)
(POP P 4)
(JSP T *SET)
(JRST 0 G1518)
G1524
G1518
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 'T)
(JRST 0 (ERUNDO -1))
G1490
(MOVEI 2 '%#DECISION-POINT)
(JRST 0 (ERUNDO -1))
G1488
(PUSH P (% 0 0 '() ))
(SKIPN 3 (SPECIAL %#CONTINUE))
(JRST 0 G1533)
(HLRZ 1 @ -7 P)
(JSP T (CARCDR 13) 0 CDDAR)
(MOVEM 1 0 P)
(MOVE 1 -6 P)
(JSP T PDLNMK)
(PUSH P 0 P)
(PUSH P 1)
G0160
(SKIPE 0 -1 P)
(JRST 0 G1536)
(MOVE 1 0 P)
(JRST 0 G1538)
G1536
(HRRZ 1 @ 0 P)
(HRRZ 2 @ -1 P)
(MOVEM 1 0 P)
(MOVEM 2 -1 P)
(JRST 0 G0160)
G1538
(SUB P (% 0 0 2 2))
(MOVEM 1 -6 P)
(JUMPN 1 G1532)
(HRRZ 2 @ -7 P)
(MOVEM 2 -7 P)
(SUB P (% 0 0 2 2))
(JRST 0 G0001)
G1533
(SETZM 0 0 P)
G1532
(MOVE 1 -6 P)
(JSP T PDLNMK)
(MOVE 2 -6 P)
(PUSH P 1)
(MOVEI 1 '() )
(JSP T %C2NS)
(PUSH P 1)
G0165
(SKIPE 0 0 P)
(JRST 0 G1547)
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 '() )
(JRST 0 (ERUNDO -1))
G1547
(MOVEI 1 '%#DECISION-POINT)
(MOVEI 2 G1553)
(JSP TT (ERSETUP -1))
(SKIPN 0 -17 P)
(JRST 0 G1555)
(HLRZ 1 @ -16 P)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPE 1 G1555)
(MOVEI T G1558)
(PUSH P T)
(PUSH P -17 P)
(HRRZ 1 @ -30 P)
(PUSH P 1)
(PUSH P -26 P)
(PUSH P -30 P)
(MOVE 2 -24 P)
(HLRZ 1 @ -33 P)
(JSP T %CONS)
(MOVE 2 (SPECIAL %#ALIST))
(JSP T %CONS)
(PUSH P 1)
(PUSH P -27 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G1558
(JRST 0 G1554)
G1555
(MOVEI T G1565)
(PUSH P T)
(HRRZ 1 @ -27 P)
(PUSH P 1)
(PUSH P -20 P)
(PUSH P -27 P)
(PUSH P -27 P)
(MOVE 2 -24 P)
(HLRZ 1 @ -33 P)
(JSP T %CONS)
(MOVE 2 (SPECIAL %#ALIST))
(JSP T %CONS)
(PUSH P 1)
(PUSH P -27 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G1565
G1554
(JRST 0 (ERUNDO -2))
G1553
(JUMPE 1 G1551)
(MOVE 1 -4 P)
(CAIE 1 'PAIR)
(JRST 0 G1575)
(HLRZ 1 @ -11 P)
(PUSH P 1)
(MOVE 1 -3 P)
(CALL 1 '%%CHECK)
(POP P 2)
(JSP T %XCONS)
(MOVE 2 (SPECIAL UMATCH-ALIST))
(JSP T %CONS)
(MOVEM 1 (SPECIAL UMATCH-ALIST))
(JRST 0 G1574)
G1575
(JUMPN 1 G1580)
(HLRZ 1 @ -11 P)
(PUSH P 1)
(MOVE 1 -3 P)
(CALL 1 '%%CHECK)
(POP P 4)
(JSP T *SET)
(JRST 0 G1574)
G1580
G1574
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 'T)
(JRST 0 (ERUNDO -1))
G1551
(HLRZ 1 @ -1 P)
(JSP T %NCONS)
(MOVEI 2 0 1)
(MOVE 1 -2 P)
(CALL 2 '*NCONC)
(HRRZ 2 @ 0 P)
(HRRZ 3 @ -1 P)
(MOVEM 1 -2 P)
(MOVEM 2 0 P)
(MOVEM 3 -1 P)
(JRST 0 G0165)
G1550
(SUB P (% 0 0 4 4))
(JUMPN 1 G0365)
(JRST 0 G0366)
G1469
(HLRZ 1 @ -5 P)
(SKIPN 0 1)
(MOVEI 1 'T)
(LSH 1 -11)
(HRRZ 1 ST 1)
(CAIE 1 'SYMBOL)
(JRST 0 G1593)
(MOVEI 2 '1)
(HLRZ 1 @ -5 P)
(CALL 2 'GETCHAR)
(JRST 0 G1592)
G1593
(MOVEI 1 '() )
G1592
(CAIE 1 '=)
(JRST 0 G1591)
(HLRZ 1 @ -5 P)
(CALL 1 'EXPLODE)
(HRRZ 1 0 1)
(PUSH P 1)
(HLRZ 2 0 1)
(CAIE 2 '?)
(JRST 0 G1603)
(CALL 1 'IMPLODE)
(PUSH P 1)
(MOVE 2 (SPECIAL %#ALIST))
(CALL 2 'ASSQ)
(PUSH P 1)
(JUMPE 1 G1608)
(HRRZ 2 @ -10 P)
(HRRZ 1 0 1)
(JSP T %CONS)
(MOVEM 1 -10 P)
(JRST 0 G1607)
G1608
(HRRZ 2 @ -10 P)
(HLRZ 1 @ -1 P)
(HRRZ 1 0 1)
(HRRZ 1 0 1)
(JSP T %CONS)
(MOVEM 1 -10 P)
G1607
(SUB P (% 0 0 3 3))
(JRST 0 G0001)
G1603
(CALL 1 'IMPLODE)
(PUSH P 1)
(MOVE 2 (SPECIAL %#ALIST))
(CALL 2 'ASSQ)
(PUSH P 1)
(JUMPE 1 G1620)
(HRRZ 2 @ -10 P)
(HRRZ 1 0 1)
(CALL 2 '*APPEND)
(MOVEM 1 -10 P)
(JRST 0 G1619)
G1620
(HRRZ 2 @ -10 P)
(HLRZ 1 @ -1 P)
(HRRZ 1 0 1)
(HRRZ 1 0 1)
(CALL 2 '*APPEND)
(MOVEM 1 -10 P)
G1619
(SUB P (% 0 0 3 3))
(JRST 0 G0001)
G1591
(HLRZ 2 @ -4 P)
(LSH 2 -11)
(SKIPL 0 ST 2)
(JRST 0 G1629)
(HLRZ 2 @ -4 P)
(HLRZ 2 0 2)
(MOVEI 5 '($R RESTRICT ⊗R))
(JUMPE 5 G1629)
(HLRZ 4 0 5)
(HRRZ 5 0 5)
(CAIE 4 0 2)
(JRST 0 (* -4))
(PUSH P (% 0 0 '() ))
(MOVEI 1 0 P)
(PUSH P 1)
(HLRZ 1 @ -6 P)
(HRRZ 1 0 1)
(HRRZ 1 0 1)
(PUSH P 1)
G0175
(SKIPN 0 0 P)
(JRST 0 G1634)
(HLRZ 1 @ 0 P)
(PUSH P 1)
(HLRZ 1 @ -11 P)
(LSH 1 -11)
(SKIPL 0 ST 1)
(JRST 0 G1639)
(MOVEI 2 '($R RESTRICT ⊗R $IR IRESTRICT ⊗IR))
(HLRZ 1 @ -11 P)
(HLRZ 1 0 1)
(CALL 2 'MEMQ)
(JUMPN 1 G1637)
G1639
(HLRZ 1 @ -11 P)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPN 1 G1637)
(HLRZ 1 @ -11 P)
(CALLF 1 @ 0 P)
(JUMPN 1 G1637)
(SKIPA)
G1637
(MOVEI 1 'T)
(SUB P (% 0 0 1 1))
(JSP T %NCONS)
(HRRM 1 @ -1 P)
(HRRZ 2 @ 0 P)
(MOVEM 1 -1 P)
(MOVEM 2 0 P)
(JRST 0 G0175)
G1634
(SUB P (% 0 0 1 1))
(MOVE 1 -1 P)
(SUB P (% 0 0 2 2))
(CALL 17 'AND)
(JUMPE 1 G1629)
(HLRZ 1 @ -4 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(SKIPN 0 1)
(MOVEI 1 'T)
(LSH 1 -11)
(HRRZ 1 ST 1)
(CAIE 1 'SYMBOL)
(JRST 0 G1654)
(MOVEI 2 '1)
(HLRZ 1 @ -4 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(CALL 2 'GETCHAR)
(JRST 0 G1653)
G1654
(MOVEI 1 '() )
G1653
(CAIE 1 '?)
(JRST 0 G1652)
(SKIPE 0 -5 P)
(JRST 0 G1660)
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 '() )
(JRST 0 (ERUNDO -1))
G1660
(HLRZ 2 @ -4 P)
(HRRZ 2 0 2)
(HLRZ 2 0 2)
(CAIE 2 '?)
(JRST 0 G1663)
(HLRZ 1 @ -5 P)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPE 1 G1666)
(HLRZ 2 @ -4 P)
(MOVEI 1 '-SPECIAL-FORM-)
(JSP T %CONS)
(HRRZ 2 @ -4 P)
(JSP T %CONS)
(MOVEM 1 -4 P)
(JSP T PDLNMK)
(PUSH P 1)
(MOVE 1 -6 P)
(JSP T PDLNMK)
(POP P -6 P)
(MOVEM 1 -4 P)
(MOVE 1 -2 P)
(JSP T PDLNMK)
(PUSH P 1)
(MOVE 1 -4 P)
(JSP T PDLNMK)
(POP P -4 P)
(MOVEM 1 -2 P)
(JRST 0 G1665)
G1666
(HRRZ 2 @ -4 P)
(HRRZ 3 @ -5 P)
(MOVEM 2 -4 P)
(MOVEM 3 -5 P)
G1665
(JRST 0 G0001)
G1663
(SKIPN 0 2)
(MOVEI 2 'T)
(LSH 2 -11)
(HRRZ 1 ST 2)
(CAIE 1 'SYMBOL)
(JRST 0 G1682)
(MOVEI 2 '1)
(HLRZ 1 @ -4 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(CALL 2 'GETCHAR)
(JRST 0 G1681)
G1682
(MOVEI 1 '() )
G1681
(CAIE 1 '?)
(JRST 0 G0366)
(MOVE 2 (SPECIAL %#ALIST))
(HLRZ 1 @ -4 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(CALL 2 'ASSQ)
(PUSH P 1)
(JUMPE 1 G1691)
(HRRZ 1 0 1)
(PUSH P 1)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPN 1 G1694)
(SKIPA 1 0 P)
G1694
(MOVEI 1 '-SPECIAL-FORM-)
(SUB P (% 0 0 1 1))
(HRRZ 2 @ -5 P)
(JSP T %CONS)
(MOVEM 1 -5 P)
(SUB P (% 0 0 1 1))
(JRST 0 G0001)
G1691
(PUSH P (% 0 0 '() ))
(PUSH P (% 0 0 '() ))
(MOVEI 1 '%#DECISION-POINT)
(MOVEI 2 G1702)
(JSP TT (ERSETUP -1))
(HLRZ 1 @ -25 P)
(LSH 1 -11)
(SKIPL 0 ST 1)
(JRST 0 G1707)
(HLRZ 1 @ -25 P)
(HLRZ 1 0 1)
(MOVEI 5 '($R RESTRICT ⊗R $IR IRESTRICT ⊗IR))
(JUMPE 5 G1707)
(HLRZ 4 0 5)
(HRRZ 5 0 5)
(CAIE 4 0 1)
(JRST 0 (* -4))
(HLRZ 2 @ -25 P)
(HRRZ 2 0 2)
(HLRZ 2 0 2)
(JRST 0 G1706)
G1707
(HLRZ 2 @ -25 P)
G1706
(HLRZ 1 @ -24 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(CALL 2 '%%OCCURS)
(JUMPE 1 G1704)
(MOVEI 1 '() )
(JRST 0 G1703)
G1704
(HLRZ 1 @ -25 P)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPE 1 G1717)
(MOVEI T 0)
(CALL 16 'GENSYM)
(MOVE 5 (SPECIAL %#ALIST))
(JSP T SPECBIND)
(0 5 (SPECIAL %#ALIST))
(PUSH P 1)
(HLRZ 2 @ -26 P)
(LSH 2 -11)
(SKIPL 0 ST 2)
(JRST 0 G1722)
(HLRZ 2 @ -26 P)
(HLRZ 2 0 2)
(MOVEI 4 '($R RESTRICT ⊗R $IR IRESTRICT ⊗IR))
(JUMPE 4 G1722)
(HLRZ 3 0 4)
(HRRZ 4 0 4)
(CAIE 3 0 2)
(JRST 0 (* -4))
(HLRZ 1 @ -26 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(SKIPN 0 1)
(MOVEI 1 'T)
(LSH 1 -11)
(HRRZ 1 ST 1)
(CAIE 1 'SYMBOL)
(JRST 0 G1729)
(MOVEI 2 '1)
(HLRZ 1 @ -26 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(CALL 2 'GETCHAR)
(JRST 0 G1728)
G1729
(MOVEI 1 '() )
G1728
(CAIE 1 '?)
(JRST 0 G1721)
(MOVEI 5 'T)
(MOVEI 4 'T)
(MOVE 2 0 P)
(HLRZ 1 @ -26 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(MOVEM 4 -16 P)
(MOVEM 5 -17 P)
(JSP T %CONS)
(MOVE 2 (SPECIAL %#ALIST))
(JSP T %CONS)
(MOVEM 1 (SPECIAL %#ALIST))
(JRST 0 G1721)
G1722
(HLRZ 1 @ -26 P)
(SKIPN 0 1)
(MOVEI 1 'T)
(LSH 1 -11)
(HRRZ 1 ST 1)
(CAIE 1 'SYMBOL)
(JRST 0 G1740)
(MOVEI 2 '1)
(HLRZ 1 @ -26 P)
(CALL 2 'GETCHAR)
(JRST 0 G1739)
G1740
(MOVEI 1 '() )
G1739
(CAIE 1 '?)
(JRST 0 G1721)
(MOVEI 5 'T)
(MOVE 2 0 P)
(HLRZ 1 @ -26 P)
(MOVEM 5 -17 P)
(JSP T %CONS)
(MOVE 2 (SPECIAL %#ALIST))
(JSP T %CONS)
(MOVEM 1 (SPECIAL %#ALIST))
G1721
(MOVEI T G1749)
(PUSH P T)
(PUSH P -27 P)
(PUSH P -27 P)
(PUSH P -27 P)
(PUSH P -27 P)
(MOVE 2 -5 P)
(HLRZ 1 @ -32 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(JSP T %CONS)
(MOVE 2 (SPECIAL %#ALIST))
(JSP T %CONS)
(PUSH P 1)
(PUSH P -27 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G1749
(SUB P (% 0 0 1 1))
(PUSHJ P UNBIND)
(JRST 0 G1703)
G1717
(MOVEI T G1755)
(PUSH P T)
(HRRZ 1 @ -25 P)
(PUSH P 1)
(HRRZ 1 @ -27 P)
(PUSH P 1)
(PUSH P -25 P)
(PUSH P -27 P)
(HLRZ 2 @ -32 P)
(HLRZ 1 @ -31 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(JSP T %CONS)
(MOVE 2 (SPECIAL %#ALIST))
(JSP T %CONS)
(PUSH P 1)
(PUSH P -26 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G1755
G1703
(JRST 0 (ERUNDO -2))
G1702
(JUMPE 1 G1701)
(MOVE 1 -3 P)
(CAIE 1 'PAIR)
(JRST 0 G1767)
(HLRZ 1 @ -7 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(PUSH P 1)
(HLRZ 1 @ -11 P)
(CALL 1 '%%CHECK)
(POP P 2)
(JSP T %XCONS)
(MOVE 2 (SPECIAL UMATCH-ALIST))
(JSP T %CONS)
(MOVEM 1 (SPECIAL UMATCH-ALIST))
(SKIPN 0 -1 P)
(JRST 0 G1766)
(SKIPN 0 0 P)
(JRST 0 G1774)
(HLRZ 1 @ -10 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(PUSH P 1)
(HLRZ 1 @ -10 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(CALL 1 '%%CHECK)
(POP P 2)
(JSP T %XCONS)
(MOVE 2 (SPECIAL UMATCH-ALIST))
(JSP T %CONS)
(MOVEM 1 (SPECIAL UMATCH-ALIST))
(JRST 0 G1766)
G1774
(HLRZ 1 @ -10 P)
(PUSH P 1)
(HLRZ 1 @ -10 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(CALL 1 '%%CHECK)
(POP P 2)
(JSP T %XCONS)
(MOVE 2 (SPECIAL UMATCH-ALIST))
(JSP T %CONS)
(MOVEM 1 (SPECIAL UMATCH-ALIST))
(JRST 0 G1766)
G1767
(JUMPN 1 G1786)
(HLRZ 1 @ -7 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(PUSH P 1)
(HLRZ 1 @ -11 P)
(CALL 1 '%%CHECK)
(POP P 4)
(JSP T *SET)
(SKIPN 0 -1 P)
(JRST 0 G1766)
(SKIPN 0 0 P)
(JRST 0 G1791)
(HLRZ 1 @ -10 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(PUSH P 1)
(HLRZ 1 @ -10 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(CALL 1 '%%CHECK)
(POP P 4)
(JSP T *SET)
(JRST 0 G1766)
G1791
(HLRZ 1 @ -10 P)
(PUSH P 1)
(HLRZ 1 @ -10 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(CALL 1 '%%CHECK)
(POP P 4)
(JSP T *SET)
(JRST 0 G1766)
G1786
G1766
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 'T)
(JRST 0 (ERUNDO -1))
G1701
(MOVEI 2 '%#DECISION-POINT)
(JRST 0 (ERUNDO -1))
G1652
(HLRZ 1 @ -5 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(SKIPN 0 1)
(MOVEI 1 'T)
(LSH 1 -11)
(HRRZ 1 ST 1)
(CAIE 1 'SYMBOL)
(JRST 0 G1807)
(MOVEI 2 '1)
(HLRZ 1 @ -5 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(CALL 2 'GETCHAR)
(JRST 0 G1806)
G1807
(MOVEI 1 '() )
G1806
(CAIE 1 '=)
(JRST 0 G1805)
(HLRZ 1 @ -5 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(CALL 1 'EXPLODE)
(HRRZ 1 0 1)
(CALL 1 'IMPLODE)
(PUSH P 1)
(MOVE 2 (SPECIAL %#ALIST))
(CALL 2 'ASSQ)
(PUSH P 1)
(JUMPE 1 G1819)
(HLRZ 1 @ -7 P)
(HRRZ 1 0 1)
(HRRZ 1 0 1)
(JSP T %NCONS)
(MOVE 2 -1 P)
(JSP T %XCONS)
(HLRZ 2 @ -7 P)
(HLRZ 2 0 2)
(JSP T %XCONS)
(HRRZ 2 @ -7 P)
(JSP T %CONS)
(MOVEM 1 -7 P)
(JRST 0 G1818)
G1819
(HLRZ 1 @ -7 P)
(HRRZ 1 0 1)
(HRRZ 1 0 1)
(JSP T %NCONS)
(MOVE 2 -1 P)
(JSP T %XCONS)
(HLRZ 2 @ -7 P)
(HLRZ 2 0 2)
(JSP T %XCONS)
(HRRZ 2 @ -7 P)
(JSP T %CONS)
(HLRZ 2 @ -1 P)
(HRRZ 2 0 2)
(HRRZ 2 0 2)
(MOVEM 1 -7 P)
(MOVE 1 -1 P)
(JSP T %CONS)
(MOVE 2 (SPECIAL %#ALIST))
(JSP T %CONS)
(MOVEM 1 (SPECIAL %#ALIST))
G1818
(SUB P (% 0 0 2 2))
(JRST 0 G0001)
G1805
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 '() )
(JRST 0 (ERUNDO -1))
G1629
(HLRZ 1 @ -4 P)
(LSH 1 -11)
(SKIPL 0 ST 1)
(JRST 0 G1840)
(HLRZ 1 @ -4 P)
(HLRZ 1 0 1)
(MOVEI 5 '($R RESTRICT ⊗R))
(JUMPE 5 G1840)
(HLRZ 4 0 5)
(HRRZ 5 0 5)
(CAIE 4 0 1)
(JRST 0 (* -4))
(HLRZ 2 @ -4 P)
(HRRZ 2 0 2)
(HLRZ 2 0 2)
(CAIE 2 '*)
(JRST 0 G1843)
(HRRZ 3 @ -4 P)
(JUMPN 3 G1845)
(PUSH P (% 0 0 '() ))
(MOVEI 1 0 P)
(PUSH P 1)
(HLRZ 1 @ -6 P)
(HRRZ 1 0 1)
(HRRZ 1 0 1)
(PUSH P 1)
G0190
(SKIPN 0 0 P)
(JRST 0 G1850)
(HLRZ 1 @ 0 P)
(PUSH P 1)
(MOVE 1 -11 P)
(CALLF 1 @ 0 P)
(JUMPE 1 G1853)
(MOVEI 1 'T)
G1853
(SUB P (% 0 0 1 1))
(JSP T %NCONS)
(HRRM 1 @ -1 P)
(HRRZ 2 @ 0 P)
(MOVEM 1 -1 P)
(MOVEM 2 0 P)
(JRST 0 G0190)
G1850
(SUB P (% 0 0 1 1))
(MOVE 1 -1 P)
(SUB P (% 0 0 2 2))
(CALL 17 'AND)
(JUMPE 1 G1847)
(HLRZ 1 @ -5 P)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPE 1 G1861)
(HLRZ 2 @ -4 P)
(MOVEI 1 '-SPECIAL-FORM-)
(JSP T %CONS)
(JSP T %NCONS)
(MOVEM 1 -4 P)
(JSP T PDLNMK)
(PUSH P 1)
(MOVE 1 -6 P)
(JSP T PDLNMK)
(POP P -6 P)
(MOVEM 1 -4 P)
(MOVE 1 -2 P)
(JSP T PDLNMK)
(PUSH P 1)
(MOVE 1 -4 P)
(JSP T PDLNMK)
(POP P -4 P)
(MOVEM 1 -2 P)
(JRST 0 G1860)
G1861
(HLRZ 2 @ -2 P)
(HLRZ 3 @ -3 P)
(HRRZ 4 @ -2 P)
(HRRZ 5 @ -3 P)
(MOVEM 2 -4 P)
(MOVEM 3 -5 P)
(MOVEM 4 -2 P)
(MOVEM 5 -3 P)
G1860
(JRST 0 G0001)
G1847
(MOVEI 2 '%#DECISION-POINT)
(JRST 0 (ERUNDO -1))
G1845
(PUSH P (% 0 0 '() ))
(SKIPN 4 (SPECIAL %#CONTINUE))
(JRST 0 G1880)
(HRRZ 5 @ (SPECIAL %#CONTINUE-STACK))
(PUSH P (SPECIAL %#CONTINUE-STACK))
(MOVEM 5 (SPECIAL %#CONTINUE-STACK))
(HLRZ 1 @ 0 P)
(MOVEM 1 -1 P)
(MOVE 1 -7 P)
(JSP T PDLNMK)
(PUSH P -1 P)
(PUSH P 1)
G0198
(SKIPE 0 -1 P)
(JRST 0 G1884)
(MOVE 1 0 P)
(JRST 0 G1886)
G1884
(HRRZ 1 @ 0 P)
(HRRZ 2 @ -1 P)
(MOVEM 1 0 P)
(MOVEM 2 -1 P)
(JRST 0 G0198)
G1886
(SUB P (% 0 0 3 3))
(MOVEM 1 -6 P)
(JUMPN 1 G1879)
(HRRZ 2 @ -5 P)
(MOVEM 2 -5 P)
(SUB P (% 0 0 1 1))
(JRST 0 G0001)
G1880
(SETZM 0 0 P)
G1879
(MOVE 1 -6 P)
(JSP T PDLNMK)
(PUSH P 1)
(MOVE 1 -6 P)
(JSP T PDLNMK)
(PUSH P 1)
(MOVE 1 -10 P)
(JSP T PDLNMK)
(MOVE 2 -10 P)
(PUSH P 1)
(MOVEI 1 '() )
(JSP T %C2NS)
(PUSH P 1)
G0205
(SKIPE 0 0 P)
(JRST 0 G1897)
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 '() )
(JRST 0 (ERUNDO -1))
G1897
(PUSH P (% 0 0 '() ))
(MOVEI 1 0 P)
(PUSH P 1)
(HLRZ 1 @ -13 P)
(HRRZ 1 0 1)
(HRRZ 1 0 1)
(PUSH P 1)
G0210
(SKIPN 0 0 P)
(JRST 0 G1905)
(HLRZ 1 @ 0 P)
(PUSH P 1)
(MOVE 1 -10 P)
(CALLF 1 @ 0 P)
(JUMPE 1 G1908)
(MOVEI 1 'T)
G1908
(SUB P (% 0 0 1 1))
(JSP T %NCONS)
(HRRM 1 @ -1 P)
(HRRZ 2 @ 0 P)
(MOVEM 1 -1 P)
(MOVEM 2 0 P)
(JRST 0 G0210)
G1905
(SUB P (% 0 0 1 1))
(MOVE 1 -1 P)
(SUB P (% 0 0 2 2))
(CALL 17 'AND)
(JUMPE 1 G1901)
(MOVEI 1 '%#DECISION-POINT)
(MOVEI 2 G1916)
(JSP TT (ERSETUP -1))
(SKIPN 0 -21 P)
(JRST 0 G1918)
(HLRZ 1 @ -20 P)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPE 1 G1918)
(MOVEI T G1921)
(PUSH P T)
(PUSH P -21 P)
(PUSH P -21 P)
(PUSH P -30 P)
(PUSH P -30 P)
(PUSH P (SPECIAL %#ALIST))
(PUSH P -30 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G1921
(JRST 0 G1917)
G1918
(MOVEI T G1924)
(PUSH P T)
(HRRZ 1 @ -27 P)
(PUSH P 1)
(PUSH P -20 P)
(PUSH P -27 P)
(PUSH P -31 P)
(PUSH P (SPECIAL %#ALIST))
(PUSH P -30 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G1924
G1917
(JRST 0 (ERUNDO -2))
G1916
(JUMPE 1 G1901)
(SKIPN 2 (SPECIAL %#RETAIN))
(JRST 0 G1930)
(MOVE 2 (SPECIAL %#CONTINUE-STACK))
(MOVE 1 -4 P)
(JSP T %CONS)
(MOVEM 1 (SPECIAL %#CONTINUE-STACK))
G1930
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 'T)
(JRST 0 (ERUNDO -1))
G1901
(HLRZ 1 @ -1 P)
(JSP T %NCONS)
(MOVEI 2 0 1)
(MOVE 1 -4 P)
(CALL 2 '*NCONC)
(HRRZ 2 @ 0 P)
(HRRZ 3 @ -1 P)
(MOVEM 1 -4 P)
(MOVEM 2 0 P)
(MOVEM 3 -1 P)
(JRST 0 G0205)
G1900
(SUB P (% 0 0 5 5))
(JUMPN 1 G0365)
(JRST 0 G0366)
G1843
(SKIPN 0 2)
(MOVEI 2 'T)
(LSH 2 -11)
(HRRZ 1 ST 2)
(CAIE 1 'SYMBOL)
(JRST 0 G1940)
(MOVEI 2 '1)
(HLRZ 1 @ -4 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(CALL 2 'GETCHAR)
(JRST 0 G1939)
G1940
(MOVEI 1 '() )
G1939
(CAIE 1 '*)
(JRST 0 G0366)
(MOVE 2 (SPECIAL %#ALIST))
(HLRZ 1 @ -4 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(CALL 2 'ASSQ)
(PUSH P 1)
(JUMPE 1 G1949)
(PUSH P (% 0 0 '() ))
(MOVEI 1 0 P)
(PUSH P 1)
(HLRZ 1 @ -7 P)
(HRRZ 1 0 1)
(HRRZ 1 0 1)
(PUSH P 1)
G0217
(SKIPN 0 0 P)
(JRST 0 G1953)
(HLRZ 1 @ 0 P)
(PUSH P 1)
(HRRZ 1 @ -4 P)
(CALLF 1 @ 0 P)
(JUMPE 1 G1956)
(MOVEI 1 'T)
G1956
(SUB P (% 0 0 1 1))
(JSP T %NCONS)
(HRRM 1 @ -1 P)
(HRRZ 2 @ 0 P)
(MOVEM 1 -1 P)
(MOVEM 2 0 P)
(JRST 0 G0217)
G1953
(SUB P (% 0 0 1 1))
(MOVE 1 -1 P)
(SUB P (% 0 0 2 2))
(CALL 17 'AND)
(JUMPE 1 G1950)
(HRRZ 1 @ 0 P)
(PUSH P 1)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPN 1 G1966)
(SKIPA 1 0 P)
G1966
(MOVEI 1 '-SPECIAL-FORM-)
(SUB P (% 0 0 1 1))
(HRRZ 2 @ -5 P)
(CALL 2 '*APPEND)
(MOVEM 1 -5 P)
(SUB P (% 0 0 1 1))
(JRST 0 G0001)
G1950
(MOVEI 2 '%#DECISION-POINT)
(JRST 0 (ERUNDO -1))
G1949
(HRRZ 2 @ -5 P)
(JUMPN 2 G1973)
(PUSH P (% 0 0 '() ))
(MOVEI 1 0 P)
(PUSH P 1)
(HLRZ 1 @ -7 P)
(HRRZ 1 0 1)
(HRRZ 1 0 1)
(PUSH P 1)
G0224
(SKIPN 0 0 P)
(JRST 0 G1978)
(HLRZ 1 @ 0 P)
(PUSH P 1)
(MOVE 1 -12 P)
(CALLF 1 @ 0 P)
(JUMPE 1 G1981)
(MOVEI 1 'T)
G1981
(SUB P (% 0 0 1 1))
(JSP T %NCONS)
(HRRM 1 @ -1 P)
(HRRZ 2 @ 0 P)
(MOVEM 1 -1 P)
(MOVEM 2 0 P)
(JRST 0 G0224)
G1978
(SUB P (% 0 0 1 1))
(MOVE 1 -1 P)
(SUB P (% 0 0 2 2))
(CALL 17 'AND)
(JUMPE 1 G1975)
(MOVEI 1 '%#DECISION-POINT)
(MOVEI 2 G1989)
(JSP TT (ERSETUP -1))
(HLRZ 1 @ -23 P)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPE 1 G1991)
(MOVEI T G1994)
(PUSH P T)
(PUSH P -24 P)
(PUSH P -24 P)
(PUSH P -24 P)
(PUSH P -24 P)
(HLRZ 2 @ -30 P)
(MOVEI 1 '-SPECIAL-FORM-)
(JSP T %CONS)
(HRRZ 2 @ -30 P)
(JSP T %CONS)
(HLRZ 2 @ -27 P)
(HRRZ 2 0 2)
(HLRZ 2 0 2)
(JSP T %XCONS)
(MOVE 2 (SPECIAL %#ALIST))
(JSP T %CONS)
(PUSH P 1)
(PUSH P -24 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G1994
(JRST 0 G1990)
G1991
(MOVEI T G2004)
(PUSH P T)
(HLRZ 1 @ -21 P)
(PUSH P 1)
(HLRZ 1 @ -23 P)
(PUSH P 1)
(HRRZ 1 @ -23 P)
(PUSH P 1)
(HRRZ 1 @ -25 P)
(PUSH P 1)
(MOVE 2 -30 P)
(HLRZ 1 @ -27 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(JSP T %C2NS)
(MOVE 2 (SPECIAL %#ALIST))
(JSP T %CONS)
(PUSH P 1)
(PUSH P -24 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G2004
G1990
(JRST 0 (ERUNDO -2))
G1989
(JUMPE 1 G1988)
(MOVE 1 -1 P)
(CAIE 1 'PAIR)
(JRST 0 G2017)
(HLRZ 1 @ -5 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(PUSH P 1)
(MOVE 1 -7 P)
(CALL 1 '%%CHECK)
(POP P 2)
(JSP T %XCONS)
(MOVE 2 (SPECIAL UMATCH-ALIST))
(JSP T %CONS)
(MOVEM 1 (SPECIAL UMATCH-ALIST))
(JRST 0 G2016)
G2017
(JUMPN 1 G2022)
(HLRZ 1 @ -5 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(PUSH P 1)
(MOVE 1 -7 P)
(CALL 1 '%%CHECK)
(POP P 4)
(JSP T *SET)
(JRST 0 G2016)
G2022
G2016
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 'T)
(JRST 0 (ERUNDO -1))
G1988
(MOVEI 2 '%#DECISION-POINT)
(JRST 0 (ERUNDO -1))
G1975
(MOVEI 2 '%#DECISION-POINT)
(JRST 0 (ERUNDO -1))
G1973
(PUSH P (% 0 0 '() ))
(SKIPN 3 (SPECIAL %#CONTINUE))
(JRST 0 G2033)
(HLRZ 1 @ -6 P)
(JSP T (CARCDR 13) 0 CDDAR)
(MOVEM 1 0 P)
(MOVE 1 -7 P)
(JSP T PDLNMK)
(PUSH P 0 P)
(PUSH P 1)
G0230
(SKIPE 0 -1 P)
(JRST 0 G2036)
(MOVE 1 0 P)
(JRST 0 G2038)
G2036
(HRRZ 1 @ 0 P)
(HRRZ 2 @ -1 P)
(MOVEM 1 0 P)
(MOVEM 2 -1 P)
(JRST 0 G0230)
G2038
(SUB P (% 0 0 2 2))
(MOVEM 1 -7 P)
(JUMPN 1 G2032)
(HRRZ 2 @ -6 P)
(MOVEM 2 -6 P)
(SUB P (% 0 0 2 2))
(JRST 0 G0001)
G2033
(SETZM 0 0 P)
G2032
(MOVE 1 -6 P)
(JSP T PDLNMK)
(PUSH P 1)
(MOVE 1 -10 P)
(JSP T PDLNMK)
(PUSH P 1)
(MOVE 1 -11 P)
(JSP T PDLNMK)
(MOVE 2 -11 P)
(PUSH P 1)
(MOVEI 1 '() )
(JSP T %C2NS)
(PUSH P 1)
G0237
(SKIPE 0 0 P)
(JRST 0 G2049)
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 '() )
(JRST 0 (ERUNDO -1))
G2049
(PUSH P (% 0 0 '() ))
(MOVEI 1 0 P)
(PUSH P 1)
(HLRZ 1 @ -14 P)
(HRRZ 1 0 1)
(HRRZ 1 0 1)
(PUSH P 1)
G0242
(SKIPN 0 0 P)
(JRST 0 G2057)
(HLRZ 1 @ 0 P)
(PUSH P 1)
(MOVE 1 -10 P)
(CALLF 1 @ 0 P)
(JUMPE 1 G2060)
(MOVEI 1 'T)
G2060
(SUB P (% 0 0 1 1))
(JSP T %NCONS)
(HRRM 1 @ -1 P)
(HRRZ 2 @ 0 P)
(MOVEM 1 -1 P)
(MOVEM 2 0 P)
(JRST 0 G0242)
G2057
(SUB P (% 0 0 1 1))
(MOVE 1 -1 P)
(SUB P (% 0 0 2 2))
(CALL 17 'AND)
(JUMPE 1 G2053)
(MOVEI 1 '%#DECISION-POINT)
(MOVEI 2 G2068)
(JSP TT (ERSETUP -1))
(SKIPN 0 -21 P)
(JRST 0 G2070)
(HLRZ 1 @ -17 P)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPE 1 G2070)
(MOVEI T G2073)
(PUSH P T)
(PUSH P -20 P)
(PUSH P -22 P)
(PUSH P -31 P)
(PUSH P -31 P)
(HLRZ 2 @ -24 P)
(MOVEI 1 '-SPECIAL-FORM-)
(JSP T %CONS)
(HRRZ 2 @ -26 P)
(JSP T %CONS)
(HLRZ 2 @ -34 P)
(HRRZ 2 0 2)
(HLRZ 2 0 2)
(JSP T %XCONS)
(MOVE 2 (SPECIAL %#ALIST))
(JSP T %CONS)
(PUSH P 1)
(PUSH P -31 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G2073
(JRST 0 G2069)
G2070
(MOVEI T G2083)
(PUSH P T)
(HRRZ 1 @ -30 P)
(PUSH P 1)
(PUSH P -20 P)
(PUSH P -30 P)
(PUSH P -32 P)
(MOVE 2 -26 P)
(HLRZ 1 @ -34 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(JSP T %CONS)
(MOVE 2 (SPECIAL %#ALIST))
(JSP T %CONS)
(PUSH P 1)
(PUSH P -31 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G2083
G2069
(JRST 0 (ERUNDO -2))
G2068
(JUMPE 1 G2053)
(MOVE 1 -6 P)
(CAIE 1 'PAIR)
(JRST 0 G2093)
(HLRZ 1 @ -12 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(PUSH P 1)
(MOVE 1 -5 P)
(CALL 1 '%%CHECK)
(POP P 2)
(JSP T %XCONS)
(MOVE 2 (SPECIAL UMATCH-ALIST))
(JSP T %CONS)
(MOVEM 1 (SPECIAL UMATCH-ALIST))
(JRST 0 G2092)
G2093
(JUMPN 1 G2098)
(HLRZ 1 @ -12 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(PUSH P 1)
(MOVE 1 -5 P)
(CALL 1 '%%CHECK)
(POP P 4)
(JSP T *SET)
(JRST 0 G2092)
G2098
G2092
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 'T)
(JRST 0 (ERUNDO -1))
G2053
(HLRZ 1 @ -1 P)
(JSP T %NCONS)
(MOVEI 2 0 1)
(MOVE 1 -4 P)
(CALL 2 '*NCONC)
(HRRZ 2 @ 0 P)
(HRRZ 3 @ -1 P)
(MOVEM 1 -4 P)
(MOVEM 2 0 P)
(MOVEM 3 -1 P)
(JRST 0 G0237)
G2052
(SUB P (% 0 0 6 6))
(JUMPN 1 G0365)
(JRST 0 G0366)
G1840
(HLRZ 1 @ -4 P)
(LSH 1 -11)
(SKIPL 0 ST 1)
(JRST 0 G2109)
(HLRZ 1 @ -4 P)
(HLRZ 1 0 1)
(MOVEI 5 '($IR IRESTRICT ⊗IR))
(JUMPE 5 G2109)
(HLRZ 4 0 5)
(HRRZ 5 0 5)
(CAIE 4 0 1)
(JRST 0 (* -4))
(HLRZ 2 @ -4 P)
(HRRZ 2 0 2)
(HLRZ 2 0 2)
(CAIE 2 '*)
(JRST 0 G2112)
(HRRZ 3 @ -4 P)
(JUMPN 3 G2114)
(PUSH P (% 0 0 '() ))
(MOVEI 1 0 P)
(PUSH P 1)
(HLRZ 1 @ -6 P)
(HRRZ 1 0 1)
(HRRZ 1 0 1)
(PUSH P 1)
G0248
(SKIPN 0 0 P)
(JRST 0 G2119)
(HLRZ 1 @ 0 P)
(PUSH P 1)
(MOVE 7 -11 P)
(LSH 7 -11)
(SKIPL 0 ST 7)
(JRST 0 G2124)
(MOVEI 2 '($R RESTRICT ⊗R $IR IRESTRICT ⊗IR))
(HLRZ 1 @ -11 P)
(CALL 2 'MEMQ)
(JUMPN 1 G2122)
G2124
(PUSH P (% 0 0 '() ))
(MOVEI 1 0 P)
(PUSH P 1)
(MOVE 1 -13 P)
(JSP T PDLNMK)
(PUSH P 1)
G0254
(SKIPN 0 0 P)
(JRST 0 G2129)
(HLRZ 1 @ 0 P)
(PUSH P 1)
(LSH 1 -11)
(SKIPL 0 ST 1)
(JRST 0 G2134)
(MOVEI 2 '($R RESTRICT ⊗R $IR IRESTRICT ⊗IR))
(HLRZ 1 @ 0 P)
(CALL 2 'MEMQ)
(JUMPN 1 G2132)
G2134
(MOVE 1 0 P)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPN 1 G2132)
(MOVE 1 0 P)
(CALLF 1 @ -4 P)
(JUMPN 1 G2132)
(SKIPA)
G2132
(MOVEI 1 'T)
(SUB P (% 0 0 1 1))
(JSP T %NCONS)
(HRRM 1 @ -1 P)
(HRRZ 2 @ 0 P)
(MOVEM 1 -1 P)
(MOVEM 2 0 P)
(JRST 0 G0254)
G2129
(SUB P (% 0 0 1 1))
(MOVE 1 -1 P)
(SUB P (% 0 0 2 2))
(CALL 17 'AND)
(JUMPN 1 G2122)
(SKIPA)
G2122
(MOVEI 1 'T)
(SUB P (% 0 0 1 1))
(JSP T %NCONS)
(HRRM 1 @ -1 P)
(HRRZ 2 @ 0 P)
(MOVEM 1 -1 P)
(MOVEM 2 0 P)
(JRST 0 G0248)
G2119
(SUB P (% 0 0 1 1))
(MOVE 1 -1 P)
(SUB P (% 0 0 2 2))
(CALL 17 'AND)
(JUMPE 1 G2116)
(HLRZ 1 @ -5 P)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPE 1 G2150)
(HLRZ 2 @ -4 P)
(MOVEI 1 '-SPECIAL-FORM-)
(JSP T %CONS)
(JSP T %NCONS)
(MOVEM 1 -4 P)
(JSP T PDLNMK)
(PUSH P 1)
(MOVE 1 -6 P)
(JSP T PDLNMK)
(POP P -6 P)
(MOVEM 1 -4 P)
(MOVE 1 -2 P)
(JSP T PDLNMK)
(PUSH P 1)
(MOVE 1 -4 P)
(JSP T PDLNMK)
(POP P -4 P)
(MOVEM 1 -2 P)
(JRST 0 G2149)
G2150
(HLRZ 2 @ -2 P)
(HLRZ 3 @ -3 P)
(HRRZ 4 @ -2 P)
(HRRZ 5 @ -3 P)
(MOVEM 2 -4 P)
(MOVEM 3 -5 P)
(MOVEM 4 -2 P)
(MOVEM 5 -3 P)
G2149
(JRST 0 G0001)
G2116
(MOVEI 2 '%#DECISION-POINT)
(JRST 0 (ERUNDO -1))
G2114
(PUSH P (% 0 0 '() ))
(SKIPN 4 (SPECIAL %#CONTINUE))
(JRST 0 G2169)
(HRRZ 5 @ (SPECIAL %#CONTINUE-STACK))
(PUSH P (SPECIAL %#CONTINUE-STACK))
(MOVEM 5 (SPECIAL %#CONTINUE-STACK))
(HLRZ 1 @ 0 P)
(MOVEM 1 -1 P)
(MOVE 1 -7 P)
(JSP T PDLNMK)
(PUSH P -1 P)
(PUSH P 1)
G0262
(SKIPE 0 -1 P)
(JRST 0 G2173)
(MOVE 1 0 P)
(JRST 0 G2175)
G2173
(HRRZ 1 @ 0 P)
(HRRZ 2 @ -1 P)
(MOVEM 1 0 P)
(MOVEM 2 -1 P)
(JRST 0 G0262)
G2175
(SUB P (% 0 0 3 3))
(MOVEM 1 -6 P)
(JUMPN 1 G2168)
(HRRZ 2 @ -5 P)
(MOVEM 2 -5 P)
(SUB P (% 0 0 1 1))
(JRST 0 G0001)
G2169
(SETZM 0 0 P)
G2168
(HLRZ 1 @ -6 P)
(PUSH P 1)
(MOVE 1 -7 P)
(JSP T PDLNMK)
(MOVE 2 -7 P)
(PUSH P 1)
(MOVEI 1 '() )
(JSP T %C2NS)
(PUSH P 1)
G0268
(SKIPE 0 0 P)
(JRST 0 G2185)
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 '() )
(JRST 0 (ERUNDO -1))
G2185
(PUSH P (% 0 0 '() ))
(MOVEI 1 0 P)
(PUSH P 1)
(HLRZ 1 @ -12 P)
(HRRZ 1 0 1)
(HRRZ 1 0 1)
(PUSH P 1)
G0273
(SKIPN 0 0 P)
(JRST 0 G2193)
(HLRZ 1 @ 0 P)
(PUSH P 1)
(SKIPN 0 -7 P)
(JRST 0 G2196)
(MOVE 7 -6 P)
(LSH 7 -11)
(SKIPL 0 ST 7)
(JRST 0 G2198)
(MOVEI 2 '($R RESTRICT ⊗R $IR IRESTRICT ⊗IR))
(HLRZ 1 @ -6 P)
(CALL 2 'MEMQ)
(JUMPN 1 G2196)
G2198
(MOVE 1 -6 P)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPN 1 G2196)
(MOVE 1 -6 P)
(CALLF 1 @ 0 P)
(JUMPN 1 G2196)
(SKIPA)
G2196
(MOVEI 1 'T)
(SUB P (% 0 0 1 1))
(JSP T %NCONS)
(HRRM 1 @ -1 P)
(HRRZ 2 @ 0 P)
(MOVEM 1 -1 P)
(MOVEM 2 0 P)
(JRST 0 G0273)
G2193
(SUB P (% 0 0 1 1))
(MOVE 1 -1 P)
(SUB P (% 0 0 2 2))
(CALL 17 'AND)
(JUMPE 1 G2189)
(MOVEI 1 '%#DECISION-POINT)
(MOVEI 2 G2209)
(JSP TT (ERSETUP -1))
(SKIPN 0 -20 P)
(JRST 0 G2211)
(HLRZ 1 @ -16 P)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPE 1 G2211)
(MOVEI T G2214)
(PUSH P T)
(PUSH P -17 P)
(HRRZ 1 @ -27 P)
(PUSH P 1)
(PUSH P -27 P)
(PUSH P -27 P)
(PUSH P (SPECIAL %#ALIST))
(PUSH P -27 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G2214
(JRST 0 G2210)
G2211
(MOVEI T G2218)
(PUSH P T)
(HRRZ 1 @ -26 P)
(PUSH P 1)
(PUSH P -20 P)
(PUSH P -26 P)
(PUSH P -30 P)
(PUSH P (SPECIAL %#ALIST))
(PUSH P -27 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G2218
G2210
(JRST 0 (ERUNDO -2))
G2209
(JUMPE 1 G2189)
(SKIPN 2 (SPECIAL %#RETAIN))
(JRST 0 G2224)
(MOVE 2 (SPECIAL %#CONTINUE-STACK))
(MOVE 1 -3 P)
(JSP T %CONS)
(MOVEM 1 (SPECIAL %#CONTINUE-STACK))
G2224
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 'T)
(JRST 0 (ERUNDO -1))
G2189
(HLRZ 1 @ -1 P)
(JSP T %NCONS)
(MOVEI 2 0 1)
(MOVE 1 -3 P)
(CALL 2 '*NCONC)
(HRRZ 2 @ 0 P)
(HRRZ 3 @ -1 P)
(PUSH P -1 P)
(HLRZ 4 @ 0 P)
(MOVEM 1 -4 P)
(MOVEM 2 -1 P)
(MOVEM 3 -2 P)
(MOVEM 4 -3 P)
(SUB P (% 0 0 1 1))
(JRST 0 G0268)
G2188
(SUB P (% 0 0 4 4))
(JUMPN 1 G0365)
(JRST 0 G0366)
G2112
(SKIPN 0 2)
(MOVEI 2 'T)
(LSH 2 -11)
(HRRZ 1 ST 2)
(CAIE 1 'SYMBOL)
(JRST 0 G2235)
(MOVEI 2 '1)
(HLRZ 1 @ -4 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(CALL 2 'GETCHAR)
(JRST 0 G2234)
G2235
(MOVEI 1 '() )
G2234
(CAIE 1 '*)
(JRST 0 G0366)
(MOVE 2 (SPECIAL %#ALIST))
(HLRZ 1 @ -4 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(CALL 2 'ASSQ)
(PUSH P 1)
(JUMPE 1 G2244)
(PUSH P (% 0 0 '() ))
(MOVEI 1 0 P)
(PUSH P 1)
(HLRZ 1 @ -7 P)
(HRRZ 1 0 1)
(HRRZ 1 0 1)
(PUSH P 1)
G0280
(SKIPN 0 0 P)
(JRST 0 G2248)
(HLRZ 1 @ 0 P)
(PUSH P 1)
(MOVE 7 -4 P)
(LSH 7 -11)
(SKIPL 0 ST 7)
(JRST 0 G2253)
(MOVEI 2 '($R RESTRICT ⊗R $IR IRESTRICT ⊗IR))
(HLRZ 1 @ -4 P)
(CALL 2 'MEMQ)
(JUMPN 1 G2251)
G2253
(PUSH P (% 0 0 '() ))
(MOVEI 1 0 P)
(PUSH P 1)
(PUSH P -6 P)
G0286
(SKIPN 0 0 P)
(JRST 0 G2257)
(HLRZ 1 @ 0 P)
(PUSH P 1)
(LSH 1 -11)
(SKIPL 0 ST 1)
(JRST 0 G2262)
(MOVEI 2 '($R RESTRICT ⊗R $IR IRESTRICT ⊗IR))
(HLRZ 1 @ 0 P)
(CALL 2 'MEMQ)
(JUMPN 1 G2260)
G2262
(MOVE 1 0 P)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPN 1 G2260)
(MOVE 1 0 P)
(CALLF 1 @ -4 P)
(JUMPN 1 G2260)
(SKIPA)
G2260
(MOVEI 1 'T)
(SUB P (% 0 0 1 1))
(JSP T %NCONS)
(HRRM 1 @ -1 P)
(HRRZ 2 @ 0 P)
(MOVEM 1 -1 P)
(MOVEM 2 0 P)
(JRST 0 G0286)
G2257
(SUB P (% 0 0 1 1))
(MOVE 1 -1 P)
(SUB P (% 0 0 2 2))
(CALL 17 'AND)
(JUMPN 1 G2251)
(SKIPA)
G2251
(MOVEI 1 'T)
(SUB P (% 0 0 1 1))
(JSP T %NCONS)
(HRRM 1 @ -1 P)
(HRRZ 2 @ 0 P)
(MOVEM 1 -1 P)
(MOVEM 2 0 P)
(JRST 0 G0280)
G2248
(SUB P (% 0 0 1 1))
(MOVE 1 -1 P)
(SUB P (% 0 0 2 2))
(CALL 17 'AND)
(JUMPE 1 G2245)
(MOVEI 1 '%#DECISION-POINT)
(MOVEI 2 G2278)
(JSP TT (ERSETUP -1))
(MOVEI T G2279)
(PUSH P T)
(HLRZ 1 @ -23 P)
(PUSH P 1)
(HLRZ 1 @ -25 P)
(PUSH P 1)
(PUSH P (% 0 0 '() ))
(PUSH P (% 0 0 '() ))
(PUSH P (SPECIAL %#ALIST))
(PUSH P -24 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G2279
(JRST 0 (ERUNDO -2))
G2278
(JUMPE 1 G2277)
(HRRZ 1 @ 0 P)
(PUSH P 1)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPN 1 G2287)
(SKIPA 1 0 P)
G2287
(MOVEI 1 '-SPECIAL-FORM-)
(SUB P (% 0 0 1 1))
(HRRZ 2 @ -5 P)
(CALL 2 '*APPEND)
(MOVEM 1 -5 P)
(SUB P (% 0 0 1 1))
(JRST 0 G0001)
G2277
(MOVEI 2 '%#DECISION-POINT)
(JRST 0 (ERUNDO -1))
G2245
(MOVEI 2 '%#DECISION-POINT)
(JRST 0 (ERUNDO -1))
G2244
(HRRZ 2 @ -5 P)
(JUMPN 2 G2296)
(PUSH P (% 0 0 '() ))
(MOVEI 1 0 P)
(PUSH P 1)
(HLRZ 1 @ -7 P)
(HRRZ 1 0 1)
(HRRZ 1 0 1)
(PUSH P 1)
G0293
(SKIPN 0 0 P)
(JRST 0 G2301)
(HLRZ 1 @ 0 P)
(PUSH P 1)
(MOVE 7 -12 P)
(LSH 7 -11)
(SKIPL 0 ST 7)
(JRST 0 G2306)
(MOVEI 2 '($R RESTRICT ⊗R $IR IRESTRICT ⊗IR))
(HLRZ 1 @ -12 P)
(CALL 2 'MEMQ)
(JUMPN 1 G2304)
G2306
(PUSH P (% 0 0 '() ))
(MOVEI 1 0 P)
(PUSH P 1)
(MOVE 1 -14 P)
(JSP T PDLNMK)
(PUSH P 1)
G0299
(SKIPN 0 0 P)
(JRST 0 G2311)
(HLRZ 1 @ 0 P)
(PUSH P 1)
(LSH 1 -11)
(SKIPL 0 ST 1)
(JRST 0 G2316)
(MOVEI 2 '($R RESTRICT ⊗R $IR IRESTRICT ⊗IR))
(HLRZ 1 @ 0 P)
(CALL 2 'MEMQ)
(JUMPN 1 G2314)
G2316
(MOVE 1 0 P)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPN 1 G2314)
(MOVE 1 0 P)
(CALLF 1 @ -4 P)
(JUMPN 1 G2314)
(SKIPA)
G2314
(MOVEI 1 'T)
(SUB P (% 0 0 1 1))
(JSP T %NCONS)
(HRRM 1 @ -1 P)
(HRRZ 2 @ 0 P)
(MOVEM 1 -1 P)
(MOVEM 2 0 P)
(JRST 0 G0299)
G2311
(SUB P (% 0 0 1 1))
(MOVE 1 -1 P)
(SUB P (% 0 0 2 2))
(CALL 17 'AND)
(JUMPN 1 G2304)
(SKIPA)
G2304
(MOVEI 1 'T)
(SUB P (% 0 0 1 1))
(JSP T %NCONS)
(HRRM 1 @ -1 P)
(HRRZ 2 @ 0 P)
(MOVEM 1 -1 P)
(MOVEM 2 0 P)
(JRST 0 G0293)
G2301
(SUB P (% 0 0 1 1))
(MOVE 1 -1 P)
(SUB P (% 0 0 2 2))
(CALL 17 'AND)
(JUMPE 1 G2298)
(HLRZ 1 @ -6 P)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPE 1 G2332)
(MOVEI 1 '%#DECISION-POINT)
(MOVEI 2 G2335)
(JSP TT (ERSETUP -1))
(MOVEI T G2336)
(PUSH P T)
(HLRZ 1 @ -24 P)
(PUSH P 1)
(HLRZ 1 @ -24 P)
(PUSH P 1)
(PUSH P (% 0 0 '() ))
(PUSH P (% 0 0 '() ))
(HLRZ 2 @ -30 P)
(MOVEI 1 '-SPECIAL-FORM-)
(JSP T %CONS)
(HRRZ 2 @ -30 P)
(JSP T %CONS)
(HLRZ 2 @ -27 P)
(HRRZ 2 0 2)
(HLRZ 2 0 2)
(JSP T %XCONS)
(MOVE 2 (SPECIAL %#ALIST))
(JSP T %CONS)
(PUSH P 1)
(PUSH P -24 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G2336
(JRST 0 (ERUNDO -2))
G2335
(JUMPE 1 G2331)
G2332
(MOVEI 1 '%#DECISION-POINT)
(MOVEI 2 G2350)
(JSP TT (ERSETUP -1))
(MOVEI T G2351)
(PUSH P T)
(HLRZ 1 @ -21 P)
(PUSH P 1)
(HLRZ 1 @ -23 P)
(PUSH P 1)
(HRRZ 1 @ -23 P)
(PUSH P 1)
(HRRZ 1 @ -25 P)
(PUSH P 1)
(MOVE 2 -30 P)
(HLRZ 1 @ -27 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(JSP T %C2NS)
(MOVE 2 (SPECIAL %#ALIST))
(JSP T %CONS)
(PUSH P 1)
(PUSH P -24 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G2351
(JRST 0 (ERUNDO -2))
G2350
(JUMPE 1 G2349)
(MOVE 1 -1 P)
(CAIE 1 'PAIR)
(JRST 0 G2363)
(HLRZ 1 @ -5 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(PUSH P 1)
(MOVE 1 -7 P)
(CALL 1 '%%CHECK)
(POP P 2)
(JSP T %XCONS)
(MOVE 2 (SPECIAL UMATCH-ALIST))
(JSP T %CONS)
(MOVEM 1 (SPECIAL UMATCH-ALIST))
(JRST 0 G2362)
G2363
(JUMPN 1 G2368)
(HLRZ 1 @ -5 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(PUSH P 1)
(MOVE 1 -7 P)
(CALL 1 '%%CHECK)
(POP P 4)
(JSP T *SET)
(JRST 0 G2362)
G2368
G2362
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 'T)
(JRST 0 (ERUNDO -1))
G2349
(MOVEI 2 '%#DECISION-POINT)
(JRST 0 (ERUNDO -1))
G2331
(MOVEI 2 '%#DECISION-POINT)
(JRST 0 (ERUNDO -1))
G2298
(MOVEI 2 '%#DECISION-POINT)
(JRST 0 (ERUNDO -1))
G2296
(PUSH P (% 0 0 '() ))
(SKIPN 3 (SPECIAL %#CONTINUE))
(JRST 0 G2381)
(HLRZ 1 @ -6 P)
(JSP T (CARCDR 13) 0 CDDAR)
(MOVEM 1 0 P)
(MOVE 1 -7 P)
(JSP T PDLNMK)
(PUSH P 0 P)
(PUSH P 1)
G0305
(SKIPE 0 -1 P)
(JRST 0 G2384)
(MOVE 1 0 P)
(JRST 0 G2386)
G2384
(HRRZ 1 @ 0 P)
(HRRZ 2 @ -1 P)
(MOVEM 1 0 P)
(MOVEM 2 -1 P)
(JRST 0 G0305)
G2386
(SUB P (% 0 0 2 2))
(MOVEM 1 -7 P)
(JUMPN 1 G2380)
(HRRZ 2 @ -6 P)
(MOVEM 2 -6 P)
(SUB P (% 0 0 2 2))
(JRST 0 G0001)
G2381
(SETZM 0 0 P)
G2380
(HLRZ 1 @ -7 P)
(PUSH P 1)
(MOVE 1 -10 P)
(JSP T PDLNMK)
(PUSH P 1)
(MOVE 1 -10 P)
(JSP T PDLNMK)
(PUSH P 1)
(MOVE 1 -12 P)
(JSP T PDLNMK)
(MOVE 2 -12 P)
(PUSH P 1)
(MOVEI 1 '() )
(JSP T %C2NS)
(PUSH P 1)
G0313
(SKIPE 0 0 P)
(JRST 0 G2398)
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 '() )
(JRST 0 (ERUNDO -1))
G2398
(PUSH P (% 0 0 '() ))
(MOVEI 1 0 P)
(PUSH P 1)
(HLRZ 1 @ -15 P)
(HRRZ 1 0 1)
(HRRZ 1 0 1)
(PUSH P 1)
G0318
(SKIPN 0 0 P)
(JRST 0 G2406)
(HLRZ 1 @ 0 P)
(PUSH P 1)
(SKIPN 0 -11 P)
(JRST 0 G2409)
(MOVE 7 -10 P)
(LSH 7 -11)
(SKIPL 0 ST 7)
(JRST 0 G2411)
(MOVEI 2 '($R RESTRICT ⊗R $IR IRESTRICT ⊗IR))
(HLRZ 1 @ -10 P)
(CALL 2 'MEMQ)
(JUMPN 1 G2409)
G2411
(MOVE 1 -10 P)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPN 1 G2409)
(MOVE 1 -10 P)
(CALLF 1 @ 0 P)
(JUMPN 1 G2409)
(SKIPA)
G2409
(MOVEI 1 'T)
(SUB P (% 0 0 1 1))
(JSP T %NCONS)
(HRRM 1 @ -1 P)
(HRRZ 2 @ 0 P)
(MOVEM 1 -1 P)
(MOVEM 2 0 P)
(JRST 0 G0318)
G2406
(SUB P (% 0 0 1 1))
(MOVE 1 -1 P)
(SUB P (% 0 0 2 2))
(CALL 17 'AND)
(JUMPE 1 G2402)
(MOVEI 1 '%#DECISION-POINT)
(MOVEI 2 G2422)
(JSP TT (ERSETUP -1))
(SKIPN 0 -22 P)
(JRST 0 G2424)
(HLRZ 1 @ -20 P)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPE 1 G2424)
(MOVEI T G2427)
(PUSH P T)
(PUSH P -21 P)
(PUSH P -21 P)
(PUSH P -32 P)
(PUSH P -32 P)
(HLRZ 2 @ -25 P)
(MOVEI 1 '-SPECIAL-FORM-)
(JSP T %CONS)
(HRRZ 2 @ -27 P)
(JSP T %CONS)
(HLRZ 2 @ -35 P)
(HRRZ 2 0 2)
(HLRZ 2 0 2)
(JSP T %XCONS)
(MOVE 2 (SPECIAL %#ALIST))
(JSP T %CONS)
(PUSH P 1)
(PUSH P -32 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G2427
(JRST 0 G2423)
G2424
(MOVEI T G2437)
(PUSH P T)
(HRRZ 1 @ -31 P)
(PUSH P 1)
(PUSH P -20 P)
(PUSH P -31 P)
(PUSH P -33 P)
(MOVE 2 -27 P)
(HLRZ 1 @ -35 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(JSP T %CONS)
(MOVE 2 (SPECIAL %#ALIST))
(JSP T %CONS)
(PUSH P 1)
(PUSH P -32 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G2437
G2423
(JRST 0 (ERUNDO -2))
G2422
(JUMPE 1 G2402)
(MOVE 1 -7 P)
(CAIE 1 'PAIR)
(JRST 0 G2447)
(HLRZ 1 @ -13 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(PUSH P 1)
(MOVE 1 -6 P)
(CALL 1 '%%CHECK)
(POP P 2)
(JSP T %XCONS)
(MOVE 2 (SPECIAL UMATCH-ALIST))
(JSP T %CONS)
(MOVEM 1 (SPECIAL UMATCH-ALIST))
(JRST 0 G2446)
G2447
(JUMPN 1 G2452)
(HLRZ 1 @ -13 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(PUSH P 1)
(MOVE 1 -6 P)
(CALL 1 '%%CHECK)
(POP P 4)
(JSP T *SET)
(JRST 0 G2446)
G2452
G2446
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 'T)
(JRST 0 (ERUNDO -1))
G2402
(HLRZ 1 @ -1 P)
(JSP T %NCONS)
(MOVEI 2 0 1)
(MOVE 1 -5 P)
(CALL 2 '*NCONC)
(HRRZ 2 @ 0 P)
(HRRZ 3 @ -1 P)
(PUSH P -1 P)
(HLRZ 4 @ 0 P)
(MOVEM 1 -6 P)
(MOVEM 2 -1 P)
(MOVEM 3 -2 P)
(MOVEM 4 -5 P)
(SUB P (% 0 0 1 1))
(JRST 0 G0313)
G2401
(SUB P (% 0 0 7 7))
(JUMPN 1 G0365)
(JRST 0 G0366)
G2109
(HLRZ 1 @ -4 P)
(CAIE 1 '*)
(JRST 0 G2464)
(HRRZ 2 @ -4 P)
(JUMPN 2 G2466)
(HLRZ 1 @ -5 P)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPE 1 G2469)
(HLRZ 2 @ -4 P)
(MOVEI 1 '-SPECIAL-FORM-)
(JSP T %CONS)
(JSP T %NCONS)
(MOVEM 1 -4 P)
(JSP T PDLNMK)
(PUSH P 1)
(MOVE 1 -6 P)
(JSP T PDLNMK)
(POP P -6 P)
(MOVEM 1 -4 P)
(MOVE 1 -2 P)
(JSP T PDLNMK)
(PUSH P 1)
(MOVE 1 -4 P)
(JSP T PDLNMK)
(POP P -4 P)
(MOVEM 1 -2 P)
(JRST 0 G2468)
G2469
(HLRZ 2 @ -2 P)
(HLRZ 3 @ -3 P)
(HRRZ 4 @ -2 P)
(HRRZ 5 @ -3 P)
(MOVEM 2 -4 P)
(MOVEM 3 -5 P)
(MOVEM 4 -2 P)
(MOVEM 5 -3 P)
G2468
(JRST 0 G0001)
G2466
(PUSH P (% 0 0 '() ))
(SKIPN 3 (SPECIAL %#CONTINUE))
(JRST 0 G2486)
(HRRZ 4 @ (SPECIAL %#CONTINUE-STACK))
(PUSH P (SPECIAL %#CONTINUE-STACK))
(MOVEM 4 (SPECIAL %#CONTINUE-STACK))
(HLRZ 5 @ 0 P)
(MOVEM 5 -1 P)
(MOVE 1 -7 P)
(JSP T PDLNMK)
(PUSH P 1)
(PUSH P 5)
G0326
(SKIPE 0 0 P)
(JRST 0 G2490)
(MOVE 1 -1 P)
(JRST 0 G2492)
G2490
(HRRZ 1 @ -1 P)
(HRRZ 2 @ 0 P)
(MOVEM 1 -1 P)
(MOVEM 2 0 P)
(JRST 0 G0326)
G2492
(SUB P (% 0 0 3 3))
(MOVEM 1 -6 P)
(JUMPN 1 G2485)
(HRRZ 2 @ -5 P)
(MOVEM 2 -5 P)
(SUB P (% 0 0 1 1))
(JRST 0 G0001)
G2486
(SETZM 0 0 P)
G2485
(MOVE 1 -6 P)
(JSP T PDLNMK)
(MOVE 2 -6 P)
(PUSH P 1)
(MOVEI 1 '() )
(JSP T %C2NS)
(PUSH P 1)
G0331
(SKIPE 0 0 P)
(JRST 0 G2501)
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 '() )
(JRST 0 (ERUNDO -1))
G2501
(MOVEI 1 '%#DECISION-POINT)
(MOVEI 2 G2507)
(JSP TT (ERSETUP -1))
(SKIPN 0 -17 P)
(JRST 0 G2509)
(HLRZ 1 @ -16 P)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPE 1 G2509)
(MOVEI T G2512)
(PUSH P T)
(PUSH P -17 P)
(HRRZ 1 @ -26 P)
(PUSH P 1)
(PUSH P -25 P)
(PUSH P -27 P)
(PUSH P (SPECIAL %#ALIST))
(PUSH P -26 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G2512
(JRST 0 G2508)
G2509
(MOVEI T G2516)
(PUSH P T)
(HRRZ 1 @ -25 P)
(PUSH P 1)
(PUSH P -20 P)
(PUSH P -25 P)
(PUSH P -27 P)
(PUSH P (SPECIAL %#ALIST))
(PUSH P -26 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G2516
G2508
(JRST 0 (ERUNDO -2))
G2507
(JUMPE 1 G2505)
(SKIPN 2 (SPECIAL %#RETAIN))
(JRST 0 G2522)
(MOVE 2 (SPECIAL %#CONTINUE-STACK))
(MOVE 1 -2 P)
(JSP T %CONS)
(MOVEM 1 (SPECIAL %#CONTINUE-STACK))
G2522
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 'T)
(JRST 0 (ERUNDO -1))
G2505
(HLRZ 1 @ -1 P)
(JSP T %NCONS)
(MOVEI 2 0 1)
(MOVE 1 -2 P)
(CALL 2 '*NCONC)
(HRRZ 2 @ 0 P)
(HRRZ 3 @ -1 P)
(MOVEM 1 -2 P)
(MOVEM 2 0 P)
(MOVEM 3 -1 P)
(JRST 0 G0331)
G2504
(SUB P (% 0 0 3 3))
(JUMPN 1 G0365)
(JRST 0 G0366)
G2464
(SKIPN 0 1)
(MOVEI 1 'T)
(LSH 1 -11)
(HRRZ 1 ST 1)
(CAIE 1 'SYMBOL)
(JRST 0 G2532)
(MOVEI 2 '1)
(HLRZ 1 @ -4 P)
(CALL 2 'GETCHAR)
(JRST 0 G2531)
G2532
(MOVEI 1 '() )
G2531
(CAIE 1 '*)
(JRST 0 G2530)
(MOVE 2 (SPECIAL %#ALIST))
(HLRZ 1 @ -4 P)
(CALL 2 'ASSQ)
(PUSH P 1)
(JUMPE 1 G2541)
(HRRZ 1 0 1)
(PUSH P 1)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPN 1 G2544)
(SKIPA 1 0 P)
G2544
(MOVEI 1 '-SPECIAL-FORM-)
(SUB P (% 0 0 1 1))
(HRRZ 2 @ -5 P)
(CALL 2 '*APPEND)
(MOVEM 1 -5 P)
(SUB P (% 0 0 1 1))
(JRST 0 G0001)
G2541
(HRRZ 2 @ -5 P)
(JUMPN 2 G2549)
(MOVEI 1 '%#DECISION-POINT)
(MOVEI 2 G2552)
(JSP TT (ERSETUP -1))
(HLRZ 1 @ -23 P)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPE 1 G2554)
(MOVEI T G2557)
(PUSH P T)
(PUSH P -24 P)
(HLRZ 2 @ -24 P)
(MOVEI 1 '-SPECIAL-FORM-)
(JSP T %CONS)
(HRRZ 2 @ -24 P)
(JSP T %CONS)
(PUSH P 1)
(PUSH P -24 P)
(PUSH P -24 P)
(MOVE 2 -30 P)
(HLRZ 1 @ -27 P)
(JSP T %C2NS)
(MOVE 2 (SPECIAL %#ALIST))
(JSP T %CONS)
(PUSH P 1)
(PUSH P -24 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G2557
(JRST 0 G2553)
G2554
(MOVEI T G2567)
(PUSH P T)
(HLRZ 1 @ -21 P)
(PUSH P 1)
(HLRZ 1 @ -23 P)
(PUSH P 1)
(HRRZ 1 @ -23 P)
(PUSH P 1)
(HRRZ 1 @ -25 P)
(PUSH P 1)
(MOVE 2 -30 P)
(HLRZ 1 @ -27 P)
(JSP T %C2NS)
(MOVE 2 (SPECIAL %#ALIST))
(JSP T %CONS)
(PUSH P 1)
(PUSH P -24 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G2567
G2553
(JRST 0 (ERUNDO -2))
G2552
(JUMPE 1 G2551)
(MOVE 1 -1 P)
(CAIE 1 'PAIR)
(JRST 0 G2580)
(HLRZ 1 @ -5 P)
(PUSH P 1)
(MOVE 1 -7 P)
(CALL 1 '%%CHECK)
(POP P 2)
(JSP T %XCONS)
(MOVE 2 (SPECIAL UMATCH-ALIST))
(JSP T %CONS)
(MOVEM 1 (SPECIAL UMATCH-ALIST))
(JRST 0 G2579)
G2580
(JUMPN 1 G2585)
(HLRZ 1 @ -5 P)
(PUSH P 1)
(MOVE 1 -7 P)
(CALL 1 '%%CHECK)
(POP P 4)
(JSP T *SET)
(JRST 0 G2579)
G2585
G2579
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 'T)
(JRST 0 (ERUNDO -1))
G2551
(MOVEI 2 '%#DECISION-POINT)
(JRST 0 (ERUNDO -1))
G2549
(PUSH P (% 0 0 '() ))
(SKIPN 3 (SPECIAL %#CONTINUE))
(JRST 0 G2594)
(HLRZ 1 @ -6 P)
(JSP T (CARCDR 13) 0 CDDAR)
(MOVEM 1 0 P)
(MOVE 1 -7 P)
(JSP T PDLNMK)
(PUSH P 0 P)
(PUSH P 1)
G0338
(SKIPE 0 -1 P)
(JRST 0 G2597)
(MOVE 1 0 P)
(JRST 0 G2599)
G2597
(HRRZ 1 @ 0 P)
(HRRZ 2 @ -1 P)
(MOVEM 1 0 P)
(MOVEM 2 -1 P)
(JRST 0 G0338)
G2599
(SUB P (% 0 0 2 2))
(MOVEM 1 -7 P)
(JUMPN 1 G2593)
(HRRZ 2 @ -6 P)
(MOVEM 2 -6 P)
(SUB P (% 0 0 2 2))
(JRST 0 G0001)
G2594
(SETZM 0 0 P)
G2593
(MOVE 1 -7 P)
(JSP T PDLNMK)
(MOVE 2 -7 P)
(PUSH P 1)
(MOVEI 1 '() )
(JSP T %C2NS)
(PUSH P 1)
G0343
(SKIPE 0 0 P)
(JRST 0 G2608)
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 '() )
(JRST 0 (ERUNDO -1))
G2608
(MOVEI 1 '%#DECISION-POINT)
(MOVEI 2 G2614)
(JSP TT (ERSETUP -1))
(SKIPN 0 -17 P)
(JRST 0 G2616)
(HLRZ 1 @ -16 P)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPE 1 G2616)
(MOVEI T G2619)
(PUSH P T)
(PUSH P -17 P)
(HRRZ 1 @ -27 P)
(PUSH P 1)
(PUSH P -27 P)
(PUSH P -27 P)
(MOVE 2 -24 P)
(HLRZ 1 @ -32 P)
(JSP T %CONS)
(MOVE 2 (SPECIAL %#ALIST))
(JSP T %CONS)
(PUSH P 1)
(PUSH P -27 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G2619
(JRST 0 G2615)
G2616
(MOVEI T G2626)
(PUSH P T)
(HRRZ 1 @ -26 P)
(PUSH P 1)
(PUSH P -20 P)
(PUSH P -26 P)
(PUSH P -30 P)
(MOVE 2 -24 P)
(HLRZ 1 @ -32 P)
(JSP T %CONS)
(MOVE 2 (SPECIAL %#ALIST))
(JSP T %CONS)
(PUSH P 1)
(PUSH P -27 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G2626
G2615
(JRST 0 (ERUNDO -2))
G2614
(JUMPE 1 G2612)
(MOVE 1 -4 P)
(CAIE 1 'PAIR)
(JRST 0 G2636)
(HLRZ 1 @ -10 P)
(PUSH P 1)
(MOVE 1 -3 P)
(CALL 1 '%%CHECK)
(POP P 2)
(JSP T %XCONS)
(MOVE 2 (SPECIAL UMATCH-ALIST))
(JSP T %CONS)
(MOVEM 1 (SPECIAL UMATCH-ALIST))
(JRST 0 G2635)
G2636
(JUMPN 1 G2641)
(HLRZ 1 @ -10 P)
(PUSH P 1)
(MOVE 1 -3 P)
(CALL 1 '%%CHECK)
(POP P 4)
(JSP T *SET)
(JRST 0 G2635)
G2641
G2635
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 'T)
(JRST 0 (ERUNDO -1))
G2612
(HLRZ 1 @ -1 P)
(JSP T %NCONS)
(MOVEI 2 0 1)
(MOVE 1 -2 P)
(CALL 2 '*NCONC)
(HRRZ 2 @ 0 P)
(HRRZ 3 @ -1 P)
(MOVEM 1 -2 P)
(MOVEM 2 0 P)
(MOVEM 3 -1 P)
(JRST 0 G0343)
G2611
(SUB P (% 0 0 4 4))
(JUMPN 1 G0365)
(JRST 0 G0366)
G2530
(HLRZ 1 @ -4 P)
(SKIPN 0 1)
(MOVEI 1 'T)
(LSH 1 -11)
(HRRZ 1 ST 1)
(CAIE 1 'SYMBOL)
(JRST 0 G2654)
(MOVEI 2 '1)
(HLRZ 1 @ -4 P)
(CALL 2 'GETCHAR)
(JRST 0 G2653)
G2654
(MOVEI 1 '() )
G2653
(CAIE 1 '=)
(JRST 0 G2652)
(HLRZ 1 @ -4 P)
(CALL 1 'EXPLODE)
(HRRZ 1 0 1)
(PUSH P 1)
(HLRZ 2 0 1)
(CAIE 2 '?)
(JRST 0 G2664)
(CALL 1 'IMPLODE)
(PUSH P 1)
(MOVE 2 (SPECIAL %#ALIST))
(CALL 2 'ASSQ)
(PUSH P 1)
(JUMPE 1 G2669)
(HRRZ 2 @ -7 P)
(HRRZ 1 0 1)
(JSP T %CONS)
(MOVEM 1 -7 P)
(JRST 0 G2668)
G2669
(HRRZ 2 @ -7 P)
(HLRZ 1 @ -1 P)
(HRRZ 1 0 1)
(HRRZ 1 0 1)
(JSP T %CONS)
(MOVEM 1 -7 P)
G2668
(SUB P (% 0 0 3 3))
(JRST 0 G0001)
G2664
(CALL 1 'IMPLODE)
(PUSH P 1)
(MOVE 2 (SPECIAL %#ALIST))
(CALL 2 'ASSQ)
(PUSH P 1)
(JUMPE 1 G2681)
(HRRZ 2 @ -7 P)
(HRRZ 1 0 1)
(CALL 2 '*APPEND)
(MOVEM 1 -7 P)
(JRST 0 G2680)
G2681
(HRRZ 2 @ -7 P)
(HLRZ 1 @ -1 P)
(HRRZ 1 0 1)
(HRRZ 1 0 1)
(CALL 2 '*APPEND)
(MOVEM 1 -7 P)
G2680
(SUB P (% 0 0 3 3))
(JRST 0 G0001)
G2652
(HLRZ 2 @ -5 P)
(CAIN 2 '?)
(JRST 0 G2691)
(HLRZ 3 @ -4 P)
(CAIE 3 '?)
(JRST 0 G2690)
G2691
(HRRZ 3 @ -5 P)
(HRRZ 2 @ -4 P)
(MOVEM 2 -4 P)
(MOVEM 3 -5 P)
(JRST 0 G0001)
G2690
(SKIPN 0 2)
(MOVEI 2 'T)
(LSH 2 -11)
(HRRZ 1 ST 2)
(CAIE 1 'SYMBOL)
(JRST 0 G2698)
(MOVEI 2 '1)
(HLRZ 1 @ -5 P)
(CALL 2 'GETCHAR)
(JRST 0 G2697)
G2698
(MOVEI 1 '() )
G2697
(CAIE 1 '?)
(JRST 0 G2696)
(MOVE 2 (SPECIAL %#ALIST))
(HLRZ 1 @ -5 P)
(CALL 2 'ASSQ)
(PUSH P 1)
(JUMPE 1 G2707)
(HRRZ 1 0 1)
(PUSH P 1)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPN 1 G2710)
(SKIPA 1 0 P)
G2710
(MOVEI 1 '-SPECIAL-FORM-)
(SUB P (% 0 0 1 1))
(HRRZ 2 @ -6 P)
(JSP T %CONS)
(MOVEM 1 -6 P)
(SUB P (% 0 0 1 1))
(JRST 0 G0001)
G2707
(PUSH P (% 0 0 '() ))
(PUSH P (% 0 0 '() ))
(MOVEI 1 '%#DECISION-POINT)
(MOVEI 2 G2718)
(JSP TT (ERSETUP -1))
(HLRZ 1 @ -24 P)
(LSH 1 -11)
(SKIPL 0 ST 1)
(JRST 0 G2723)
(HLRZ 1 @ -24 P)
(HLRZ 1 0 1)
(MOVEI 5 '($R RESTRICT ⊗R $IR IRESTRICT ⊗IR))
(JUMPE 5 G2723)
(HLRZ 4 0 5)
(HRRZ 5 0 5)
(CAIE 4 0 1)
(JRST 0 (* -4))
(HLRZ 2 @ -24 P)
(HRRZ 2 0 2)
(HLRZ 2 0 2)
(JRST 0 G2722)
G2723
(HLRZ 2 @ -24 P)
G2722
(HLRZ 1 @ -25 P)
(CALL 2 '%%OCCURS)
(JUMPE 1 G2720)
(MOVEI 1 '() )
(JRST 0 G2719)
G2720
(HLRZ 1 @ -24 P)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPE 1 G2733)
(MOVEI T 0)
(CALL 16 'GENSYM)
(MOVE 5 (SPECIAL %#ALIST))
(JSP T SPECBIND)
(0 5 (SPECIAL %#ALIST))
(PUSH P 1)
(HLRZ 2 @ -25 P)
(LSH 2 -11)
(SKIPL 0 ST 2)
(JRST 0 G2738)
(HLRZ 2 @ -25 P)
(HLRZ 2 0 2)
(MOVEI 4 '($R RESTRICT ⊗R $IR IRESTRICT ⊗IR))
(JUMPE 4 G2738)
(HLRZ 3 0 4)
(HRRZ 4 0 4)
(CAIE 3 0 2)
(JRST 0 (* -4))
(HLRZ 1 @ -25 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(SKIPN 0 1)
(MOVEI 1 'T)
(LSH 1 -11)
(HRRZ 1 ST 1)
(CAIE 1 'SYMBOL)
(JRST 0 G2745)
(MOVEI 2 '1)
(HLRZ 1 @ -25 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(CALL 2 'GETCHAR)
(JRST 0 G2744)
G2745
(MOVEI 1 '() )
G2744
(CAIE 1 '?)
(JRST 0 G2737)
(MOVEI 5 'T)
(MOVEI 4 'T)
(MOVE 2 0 P)
(HLRZ 1 @ -25 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(MOVEM 4 -16 P)
(MOVEM 5 -17 P)
(JSP T %CONS)
(MOVE 2 (SPECIAL %#ALIST))
(JSP T %CONS)
(MOVEM 1 (SPECIAL %#ALIST))
(JRST 0 G2737)
G2738
(HLRZ 1 @ -25 P)
(SKIPN 0 1)
(MOVEI 1 'T)
(LSH 1 -11)
(HRRZ 1 ST 1)
(CAIE 1 'SYMBOL)
(JRST 0 G2756)
(MOVEI 2 '1)
(HLRZ 1 @ -25 P)
(CALL 2 'GETCHAR)
(JRST 0 G2755)
G2756
(MOVEI 1 '() )
G2755
(CAIE 1 '?)
(JRST 0 G2737)
(MOVEI 5 'T)
(MOVE 2 0 P)
(HLRZ 1 @ -25 P)
(MOVEM 5 -17 P)
(JSP T %CONS)
(MOVE 2 (SPECIAL %#ALIST))
(JSP T %CONS)
(MOVEM 1 (SPECIAL %#ALIST))
G2737
(MOVEI T G2765)
(PUSH P T)
(PUSH P -26 P)
(PUSH P -30 P)
(PUSH P -26 P)
(PUSH P -30 P)
(MOVE 2 -5 P)
(HLRZ 1 @ -33 P)
(JSP T %CONS)
(MOVE 2 (SPECIAL %#ALIST))
(JSP T %CONS)
(PUSH P 1)
(PUSH P -27 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G2765
(SUB P (% 0 0 1 1))
(PUSHJ P UNBIND)
(JRST 0 G2719)
G2733
(MOVEI T G2771)
(PUSH P T)
(HRRZ 1 @ -26 P)
(PUSH P 1)
(HRRZ 1 @ -26 P)
(PUSH P 1)
(PUSH P -26 P)
(PUSH P -26 P)
(HLRZ 2 @ -31 P)
(HLRZ 1 @ -32 P)
(JSP T %CONS)
(MOVE 2 (SPECIAL %#ALIST))
(JSP T %CONS)
(PUSH P 1)
(PUSH P -26 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G2771
G2719
(JRST 0 (ERUNDO -2))
G2718
(JUMPE 1 G2717)
(MOVE 1 -3 P)
(CAIE 1 'PAIR)
(JRST 0 G2783)
(HLRZ 1 @ -10 P)
(PUSH P 1)
(HLRZ 1 @ -10 P)
(CALL 1 '%%CHECK)
(POP P 2)
(JSP T %XCONS)
(MOVE 2 (SPECIAL UMATCH-ALIST))
(JSP T %CONS)
(MOVEM 1 (SPECIAL UMATCH-ALIST))
(SKIPN 0 -1 P)
(JRST 0 G2782)
(SKIPN 0 0 P)
(JRST 0 G2790)
(HLRZ 1 @ -7 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(PUSH P 1)
(HLRZ 1 @ -11 P)
(CALL 1 '%%CHECK)
(POP P 2)
(JSP T %XCONS)
(MOVE 2 (SPECIAL UMATCH-ALIST))
(JSP T %CONS)
(MOVEM 1 (SPECIAL UMATCH-ALIST))
(JRST 0 G2782)
G2790
(HLRZ 1 @ -7 P)
(PUSH P 1)
(HLRZ 1 @ -11 P)
(CALL 1 '%%CHECK)
(POP P 2)
(JSP T %XCONS)
(MOVE 2 (SPECIAL UMATCH-ALIST))
(JSP T %CONS)
(MOVEM 1 (SPECIAL UMATCH-ALIST))
(JRST 0 G2782)
G2783
(JUMPN 1 G2802)
(HLRZ 1 @ -10 P)
(PUSH P 1)
(HLRZ 1 @ -10 P)
(CALL 1 '%%CHECK)
(POP P 4)
(JSP T *SET)
(SKIPN 0 -1 P)
(JRST 0 G2782)
(SKIPN 0 0 P)
(JRST 0 G2807)
(HLRZ 1 @ -7 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(PUSH P 1)
(HLRZ 1 @ -11 P)
(CALL 1 '%%CHECK)
(POP P 4)
(JSP T *SET)
(JRST 0 G2782)
G2807
(HLRZ 1 @ -7 P)
(PUSH P 1)
(HLRZ 1 @ -11 P)
(CALL 1 '%%CHECK)
(POP P 4)
(JSP T *SET)
(JRST 0 G2782)
G2802
G2782
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 'T)
(JRST 0 (ERUNDO -1))
G2717
(MOVEI 2 '%#DECISION-POINT)
(JRST 0 (ERUNDO -1))
G2696
(HLRZ 1 @ -4 P)
(SKIPN 0 1)
(MOVEI 1 'T)
(LSH 1 -11)
(HRRZ 1 ST 1)
(CAIE 1 'SYMBOL)
(JRST 0 G2823)
(MOVEI 2 '1)
(HLRZ 1 @ -4 P)
(CALL 2 'GETCHAR)
(JRST 0 G2822)
G2823
(MOVEI 1 '() )
G2822
(CAIE 1 '?)
(JRST 0 G2821)
(MOVE 2 (SPECIAL %#ALIST))
(HLRZ 1 @ -4 P)
(CALL 2 'ASSQ)
(PUSH P 1)
(JUMPE 1 G2832)
(HRRZ 1 0 1)
(PUSH P 1)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPN 1 G2835)
(SKIPA 1 0 P)
G2835
(MOVEI 1 '-SPECIAL-FORM-)
(SUB P (% 0 0 1 1))
(HRRZ 2 @ -5 P)
(JSP T %CONS)
(MOVEM 1 -5 P)
(SUB P (% 0 0 1 1))
(JRST 0 G0001)
G2832
(PUSH P (% 0 0 '() ))
(PUSH P (% 0 0 '() ))
(MOVEI 1 '%#DECISION-POINT)
(MOVEI 2 G2843)
(JSP TT (ERSETUP -1))
(HLRZ 1 @ -25 P)
(LSH 1 -11)
(SKIPL 0 ST 1)
(JRST 0 G2848)
(HLRZ 1 @ -25 P)
(HLRZ 1 0 1)
(MOVEI 5 '($R RESTRICT ⊗R $IR IRESTRICT ⊗IR))
(JUMPE 5 G2848)
(HLRZ 4 0 5)
(HRRZ 5 0 5)
(CAIE 4 0 1)
(JRST 0 (* -4))
(HLRZ 2 @ -25 P)
(HRRZ 2 0 2)
(HLRZ 2 0 2)
(JRST 0 G2847)
G2848
(HLRZ 2 @ -25 P)
G2847
(HLRZ 1 @ -24 P)
(CALL 2 '%%OCCURS)
(JUMPE 1 G2845)
(MOVEI 1 '() )
(JRST 0 G2844)
G2845
(HLRZ 1 @ -25 P)
(CALL 1 '%%SPECIAL-FORMP)
(JUMPE 1 G2858)
(MOVEI T 0)
(CALL 16 'GENSYM)
(MOVE 5 (SPECIAL %#ALIST))
(JSP T SPECBIND)
(0 5 (SPECIAL %#ALIST))
(PUSH P 1)
(HLRZ 2 @ -26 P)
(LSH 2 -11)
(SKIPL 0 ST 2)
(JRST 0 G2863)
(HLRZ 2 @ -26 P)
(HLRZ 2 0 2)
(MOVEI 4 '($R RESTRICT ⊗R $IR IRESTRICT ⊗IR))
(JUMPE 4 G2863)
(HLRZ 3 0 4)
(HRRZ 4 0 4)
(CAIE 3 0 2)
(JRST 0 (* -4))
(HLRZ 1 @ -26 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(SKIPN 0 1)
(MOVEI 1 'T)
(LSH 1 -11)
(HRRZ 1 ST 1)
(CAIE 1 'SYMBOL)
(JRST 0 G2870)
(MOVEI 2 '1)
(HLRZ 1 @ -26 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(CALL 2 'GETCHAR)
(JRST 0 G2869)
G2870
(MOVEI 1 '() )
G2869
(CAIE 1 '?)
(JRST 0 G2862)
(MOVEI 5 'T)
(MOVEI 4 'T)
(MOVE 2 0 P)
(HLRZ 1 @ -26 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(MOVEM 4 -16 P)
(MOVEM 5 -17 P)
(JSP T %CONS)
(MOVE 2 (SPECIAL %#ALIST))
(JSP T %CONS)
(MOVEM 1 (SPECIAL %#ALIST))
(JRST 0 G2862)
G2863
(HLRZ 1 @ -26 P)
(SKIPN 0 1)
(MOVEI 1 'T)
(LSH 1 -11)
(HRRZ 1 ST 1)
(CAIE 1 'SYMBOL)
(JRST 0 G2881)
(MOVEI 2 '1)
(HLRZ 1 @ -26 P)
(CALL 2 'GETCHAR)
(JRST 0 G2880)
G2881
(MOVEI 1 '() )
G2880
(CAIE 1 '?)
(JRST 0 G2862)
(MOVEI 5 'T)
(MOVE 2 0 P)
(HLRZ 1 @ -26 P)
(MOVEM 5 -17 P)
(JSP T %CONS)
(MOVE 2 (SPECIAL %#ALIST))
(JSP T %CONS)
(MOVEM 1 (SPECIAL %#ALIST))
G2862
(MOVEI T G2890)
(PUSH P T)
(PUSH P -27 P)
(PUSH P -27 P)
(PUSH P -27 P)
(PUSH P -27 P)
(MOVE 2 -5 P)
(HLRZ 1 @ -32 P)
(JSP T %CONS)
(MOVE 2 (SPECIAL %#ALIST))
(JSP T %CONS)
(PUSH P 1)
(PUSH P -27 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G2890
(SUB P (% 0 0 1 1))
(PUSHJ P UNBIND)
(JRST 0 G2844)
G2858
(MOVEI T G2896)
(PUSH P T)
(HRRZ 1 @ -25 P)
(PUSH P 1)
(HRRZ 1 @ -27 P)
(PUSH P 1)
(PUSH P -25 P)
(PUSH P -27 P)
(HLRZ 2 @ -32 P)
(HLRZ 1 @ -31 P)
(JSP T %CONS)
(MOVE 2 (SPECIAL %#ALIST))
(JSP T %CONS)
(PUSH P 1)
(PUSH P -26 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G2896
G2844
(JRST 0 (ERUNDO -2))
G2843
(JUMPE 1 G2842)
(MOVE 1 -3 P)
(CAIE 1 'PAIR)
(JRST 0 G2908)
(HLRZ 1 @ -7 P)
(PUSH P 1)
(HLRZ 1 @ -11 P)
(CALL 1 '%%CHECK)
(POP P 2)
(JSP T %XCONS)
(MOVE 2 (SPECIAL UMATCH-ALIST))
(JSP T %CONS)
(MOVEM 1 (SPECIAL UMATCH-ALIST))
(SKIPN 0 -1 P)
(JRST 0 G2907)
(SKIPN 0 0 P)
(JRST 0 G2915)
(HLRZ 1 @ -10 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(PUSH P 1)
(HLRZ 1 @ -10 P)
(CALL 1 '%%CHECK)
(POP P 2)
(JSP T %XCONS)
(MOVE 2 (SPECIAL UMATCH-ALIST))
(JSP T %CONS)
(MOVEM 1 (SPECIAL UMATCH-ALIST))
(JRST 0 G2907)
G2915
(HLRZ 1 @ -10 P)
(PUSH P 1)
(HLRZ 1 @ -10 P)
(CALL 1 '%%CHECK)
(POP P 2)
(JSP T %XCONS)
(MOVE 2 (SPECIAL UMATCH-ALIST))
(JSP T %CONS)
(MOVEM 1 (SPECIAL UMATCH-ALIST))
(JRST 0 G2907)
G2908
(JUMPN 1 G2927)
(HLRZ 1 @ -7 P)
(PUSH P 1)
(HLRZ 1 @ -11 P)
(CALL 1 '%%CHECK)
(POP P 4)
(JSP T *SET)
(SKIPN 0 -1 P)
(JRST 0 G2907)
(SKIPN 0 0 P)
(JRST 0 G2932)
(HLRZ 1 @ -10 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(PUSH P 1)
(HLRZ 1 @ -10 P)
(CALL 1 '%%CHECK)
(POP P 4)
(JSP T *SET)
(JRST 0 G2907)
G2932
(HLRZ 1 @ -10 P)
(PUSH P 1)
(HLRZ 1 @ -10 P)
(CALL 1 '%%CHECK)
(POP P 4)
(JSP T *SET)
(JRST 0 G2907)
G2927
G2907
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 'T)
(JRST 0 (ERUNDO -1))
G2842
(MOVEI 2 '%#DECISION-POINT)
(JRST 0 (ERUNDO -1))
G2821
(HLRZ 2 @ -4 P)
(HLRZ 3 @ -5 P)
(CAIE 3 0 2)
(JRST 0 G2946)
(HRRZ 4 @ -5 P)
(HRRZ 3 @ -4 P)
(MOVEM 3 -4 P)
(MOVEM 4 -5 P)
(JRST 0 G0001)
G2946
(LSH 3 -11)
(SKIPL 0 ST 3)
(JRST 0 G2951)
(HLRZ 3 @ -5 P)
(HLRZ 3 0 3)
(MOVEI 5 '($CHOOSE $CH))
(JUMPE 5 G2951)
(HLRZ 4 0 5)
(HRRZ 5 0 5)
(CAIE 4 0 3)
(JRST 0 (* -4))
(HLRZ 1 @ -5 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(PUSH P 1)
(MOVE 2 -5 P)
(CALL 2 '%%UCHOOSE-FIRST)
(PUSH P 1)
G0360
(MOVE 1 0 P)
(HLRZ 1 2 1)
(JUMPE 1 G2958)
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 '() )
(JRST 0 (ERUNDO -1))
G2958
(MOVEI 1 '%#DECISION-POINT)
(MOVEI 2 G2965)
(JSP TT (ERSETUP -1))
(MOVEI T G2966)
(PUSH P T)
(HRRZ 2 @ -25 P)
(MOVE 1 -17 P)
(JSP T %CONS)
(PUSH P 1)
(MOVE 1 -17 P)
(HRRZ 1 2 1)
(PUSH P 1)
(PUSH P -25 P)
(PUSH P -25 P)
(PUSH P (SPECIAL %#ALIST))
(PUSH P -25 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G2966
(JRST 0 (ERUNDO -2))
G2965
(JUMPE 1 G2963)
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 'T)
(JRST 0 (ERUNDO -1))
G2963
(MOVE 1 0 P)
(CALL 1 '%%UCHOOSE-NEXT)
(MOVEM 1 0 P)
(JRST 0 G0360)
G2962
(SUB P (% 0 0 2 2))
(JUMPN 1 G0365)
(JRST 0 G0366)
G2951
(LSH 2 -11)
(SKIPL 0 ST 2)
(JRST 0 G2975)
(HLRZ 2 @ -4 P)
(HLRZ 2 0 2)
(MOVEI 5 '($CHOOSE $CH))
(JUMPE 5 G2975)
(HLRZ 4 0 5)
(HRRZ 5 0 5)
(CAIE 4 0 2)
(JRST 0 (* -4))
(HLRZ 1 @ -4 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(PUSH P 1)
(MOVE 2 -6 P)
(CALL 2 '%%UCHOOSE-FIRST)
(PUSH P 1)
G0364
(MOVE 1 0 P)
(HLRZ 1 2 1)
(JUMPE 1 G2982)
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 '() )
(JRST 0 (ERUNDO -1))
G2982
(MOVEI 1 '%#DECISION-POINT)
(MOVEI 2 G2989)
(JSP TT (ERSETUP -1))
(MOVEI T G2990)
(PUSH P T)
(HRRZ 2 @ -24 P)
(MOVE 1 -17 P)
(JSP T %CONS)
(PUSH P 1)
(MOVE 1 -17 P)
(HRRZ 1 2 1)
(PUSH P 1)
(PUSH P -24 P)
(PUSH P -26 P)
(PUSH P (SPECIAL %#ALIST))
(PUSH P -25 P)
(MOVNI T 6)
(JCALL 16 '%%UMATCH)
G2990
(JRST 0 (ERUNDO -2))
G2989
(JUMPE 1 G2987)
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 'T)
(JRST 0 (ERUNDO -1))
G2987
(MOVE 1 0 P)
(CALL 1 '%%UCHOOSE-NEXT)
(MOVEM 1 0 P)
(JRST 0 G0364)
G2986
(SUB P (% 0 0 2 2))
(JUMPN 1 G0365)
(JRST 0 G0366)
G2975
(HLRZ 2 @ -5 P)
(LSH 2 -11)
(SKIPL 0 ST 2)
(JRST 0 G0366)
(HLRZ 2 @ -4 P)
(JUMPE 2 G3001)
(LSH 2 -11)
(SKIPL 0 ST 2)
(JRST 0 G0366)
G3001
(MOVE 2 -3 P)
(HRRZ 1 @ -5 P)
(JSP T %C2NS)
(MOVE 2 -2 P)
(MOVEM 1 -3 P)
(HRRZ 1 @ -4 P)
(JSP T %C2NS)
(HLRZ 2 @ -5 P)
(HLRZ 3 @ -4 P)
(MOVEM 1 -2 P)
(MOVEM 2 -5 P)
(MOVEM 3 -4 P)
(JRST 0 G0001)
G0366
(MOVEI 2 '%#DECISION-POINT)
(MOVEI 1 '() )
(JRST 0 (ERUNDO -1))
G0365
(MOVEI 1 '() )
(SUB P (% 0 0 6 6))
(JRST 0 UNBIND)
()